diff --git a/R/AQSAPI_helperfunctions.R b/R/AQSAPI_helperfunctions.R index 4a30f84..c521903 100644 --- a/R/AQSAPI_helperfunctions.R +++ b/R/AQSAPI_helperfunctions.R @@ -381,6 +381,7 @@ aqs <- function(service, filter = NULL, user = NA, variables))) AQSrequest <- AQSpath %>% request() %>% + req_throttle(rate = 10/60, realm = "RAQSAPI") %>% req_retry(max_tries = 5, max_seconds = 30, backoff = ~10) # AQS DataMart API does not accept headers so user_agent not working diff --git a/dev/hexsticker.R b/dev/hexsticker.R deleted file mode 100644 index f88631e..0000000 --- a/dev/hexsticker.R +++ /dev/null @@ -1,11 +0,0 @@ -#testing out a new hexlogo -library(hexSticker) -library(magrittr) -library(showtext) -font_add_google("Inter") - showtext_auto() -file.path("./vignettes/figures/AQS_LOGO.png") %>% - sticker(AQSlogo, package="RAQSAPI", p_size=16, s_x=1, s_y=0.70, s_width=.5, - p_family = "Inter", h_fill="green4" , filename="vignettes/figures/RAQSAPIhexsticker.png", - url="https://cran.r-project.org/package=RAQSAPI", white_around_sticker=FALSE) %>% - print