add argentina and dmonths fix #228

atmoschem · Dec 2, 2024 · 9006884 · 9006884
1 parent 110ab4f
commit 9006884
Show file tree

Hide file tree

Showing 293 changed files with 201 additions and 3,715 deletions.
diff --git a/R/dmonth.R b/R/dmonth.R
@@ -1,6 +1,6 @@
 #' Number of days of the month
 #'
-#' \code{\link{ef_ldv_speed}} return the number of day sof the month
+#' \code{\link{ef_ldv_speed}} return the number of days of the month
 #'
 #'
 #' @param year Numeric
@@ -10,13 +10,22 @@
 #' @export
 #' @examples \dontrun{
 #' dmonth(2022, 1)
+#' dmonth(Sys.Date())
 #' }
 dmonth <- function(year, month) {
-  date <- ISOdate(year, month, 1, 0, 0, 0)
-  m <- format(date, format="%m")
 
-  while (format(date, format="%m") == m) {
-    date <- date + 1*3600
+  if(inherits(year, "Date")) {
+    date <- year
+  } else {
+    date <- as.Date(ISOdate(year, month, 1, 0, 0, 0))
+
   }
-  return(as.integer(format(date - 1, format="%d")))
+
+  datef <- as.Date(unlist(lapply(seq_along(date), function(i) {
+    seq.Date(date[i], length.out = 2, by = "1 months")[2]
+  })))
+
+  ddif <- datef - date
+
+    return(as.integer(ddif))
 }
diff --git a/R/get_project.R b/R/get_project.R
@@ -7,6 +7,7 @@
 #' @param case Character; One of  of the following:
 #' \tabular{llll}{
 #'   \strong{case}  \tab \strong{Description}\tab  \strong{EF} \tab \strong{Notes}   \cr
+#'   argentina  \tab top down\tab COPERT \tab  .rds\cr
 #'   emislacovid  \tab Bottom-up March 2020\tab CETESB \tab  .rds\cr
 #'   brazil_bu_chem     \tab Bottom-up  chemical mechanisms\tab CETESB+tunnel\tab  .rds\cr
 #'   brazil_bu_chem_streets \tab Bottom-up  chemical mechanisms for streets and MUNICH\tab CETESB+tunnel\tab  .rds\cr
@@ -131,6 +132,24 @@ get_project <- function(directory,
       utils::untar(tarfile = tf, exdir = directory)
       message("Your directory is in ", directory)
 
+      # argentina ####
+    } else if(case %in% c("argentina")){
+      URL <- "https://raw.githubusercontent.com/atmoschem/vein/master/projects/argentina.tar.gz"
+      tf <- paste0(tempfile(), ".tar.gz")
+      utils::download.file(url = URL,
+                           destfile =  tf)
+      utils::untar(tarfile = tf, exdir = directory)
+
+      URL <- "https://gitlab.com/ibarraespinosa/veinextras/-/raw/master/wrf_argentina/wrfinput_d01"
+      tf <- paste0(tempfile(), ".tar.gz")
+      utils::download.file(url = URL,
+                           destfile =  paste0(directory, "/wrfinput_d01"))
+
+      message("Your directory is in ", directory)
+
+
+      message("Your directory is in ", directory)
+
       # brazil_bu_chem_streets ####
     } else if(case %in% c("brazil_bu_chem_streets",
                           "brazil_bu_chem_streets_im")){

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/CODE_OF_CONDUCT.html b/docs/CODE_OF_CONDUCT.html
diff --git a/docs/CONTRIBUTING.html b/docs/CONTRIBUTING.html
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/articles/basics.html b/docs/articles/basics.html
diff --git a/docs/articles/index.html b/docs/articles/index.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -1,9 +1,9 @@
 pandoc: 3.1.11
-pkgdown: 2.1.0
+pkgdown: 2.1.1
 pkgdown_sha: ~
 articles:
   basics: basics.html
-last_built: 2024-08-21T04:00Z
+last_built: 2024-12-02T06:11Z
 urls:
   reference: http://atmoschem.github.io/vein/reference
   article: http://atmoschem.github.io/vein/articles
diff --git a/docs/reference/EmissionFactors.html b/docs/reference/EmissionFactors.html
diff --git a/docs/reference/EmissionFactorsList.html b/docs/reference/EmissionFactorsList.html
diff --git a/docs/reference/Emissions.html b/docs/reference/Emissions.html
diff --git a/docs/reference/EmissionsArray.html b/docs/reference/EmissionsArray.html
diff --git a/docs/reference/GriddedEmissionsArray.html b/docs/reference/GriddedEmissionsArray.html
diff --git a/docs/reference/Speed-1.png b/docs/reference/Speed-1.png
diff --git a/docs/reference/Speed-2.png b/docs/reference/Speed-2.png
diff --git a/docs/reference/Speed-3.png b/docs/reference/Speed-3.png
diff --git a/docs/reference/Speed.html b/docs/reference/Speed.html
diff --git a/docs/reference/Vehicles.html b/docs/reference/Vehicles.html
diff --git a/docs/reference/add_lkm.html b/docs/reference/add_lkm.html
diff --git a/docs/reference/add_miles.html b/docs/reference/add_miles.html
diff --git a/docs/reference/add_polid.html b/docs/reference/add_polid.html
diff --git a/docs/reference/addscale.html b/docs/reference/addscale.html
diff --git a/docs/reference/adt.html b/docs/reference/adt.html
diff --git a/docs/reference/age.html b/docs/reference/age.html
diff --git a/docs/reference/age_hdv.html b/docs/reference/age_hdv.html
diff --git a/docs/reference/age_ldv.html b/docs/reference/age_ldv.html
diff --git a/docs/reference/age_moto.html b/docs/reference/age_moto.html
diff --git a/docs/reference/aw.html b/docs/reference/aw.html
diff --git a/docs/reference/celsius-1.png b/docs/reference/celsius-1.png
diff --git a/docs/reference/celsius.html b/docs/reference/celsius.html
diff --git a/docs/reference/check_nt.html b/docs/reference/check_nt.html
diff --git a/docs/reference/cold_mileage.html b/docs/reference/cold_mileage.html
diff --git a/docs/reference/colplot.html b/docs/reference/colplot.html
diff --git a/docs/reference/decoder.html b/docs/reference/decoder.html