feat: add 4 more aqs

ropensci · Aug 8, 2024 · 7477a23 · 7477a23
1 parent ae624d9
commit 7477a23
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 7 deletions.
diff --git a/R/data.R b/R/data.R
@@ -4,7 +4,7 @@
 #' Use this to check the AQS \code{aqs_code} argument in CetesbRetrieveParam()
 #' function. AQS names are without diacritics.
 #'
-#' @format A data frame with 70 observations and 5 variables:
+  #' @format A data frame with 74 observations and 5 variables:
 #' \describe{
 #' \item{name}{CETESB AQS name.}
 #' \item{code}{CETESB AQS code in QUALAR System.}

diff --git a/data-raw/cetesb_aqs.R b/data-raw/cetesb_aqs.R
@@ -21,11 +21,16 @@ cetesb_aqs$loc[cetesb_aqs$code %in% litoral] <- "Coast"
 cetesb_aqs$loc[cetesb_aqs$code %in% interior] <- "Interior"
 
 missing_aqs <- data.frame(
-  name = c("Lapa", "Perus"),
-  code = c(84, 293),
-  lat = c(-23.50897, -23.41321),
-  lon = c(-46.70122, -46.75605),
-  loc = c("São Paulo", "São Paulo")
+  name = c("Lapa", "Perus", "Americana-Vila Sta Maria",
+           "Paulínia-Sta Terezinha",  "Rio Claro-Jd.Guanabara",
+           "São Sebastião" ),
+  code = c(84, 293, 105, 291, 292, 294),
+  lat = c(-23.50897, -23.41321, -22.72425,
+          -22.78021, -22.43906, -23.8052),
+  lon = c(-46.70122, -46.75605, -41.33955,
+          -41.113904, -41.58144, -39.40007),
+  loc = c("São Paulo", "São Paulo", "Interior", "Interior",
+          "Interior", "Litoral")
 )
 
 cetesb_aqs <- rbind(cetesb_aqs, missing_aqs)

diff --git a/data/cetesb_aqs.rda b/data/cetesb_aqs.rda
diff --git a/man/cetesb_aqs.Rd b/man/cetesb_aqs.Rd