add china

atmoschem · Jun 16, 2023 · 18ac03c · 18ac03c
1 parent cfe7bdd
commit 18ac03c
Show file tree

Hide file tree

Showing 41 changed files with 5,309 additions and 24 deletions.
diff --git a/R/get_project.R b/R/get_project.R
@@ -23,6 +23,7 @@
 #'   eu_bu_chem       \tab Bottom-up  chemical mechanisms\tab EEA 2019\tab  .rds\cr
 #'   eu_bu_chem_simple\tab Bottom-up  chemical mechanisms 7 veh\tab EEA 2019\tab  .rds\cr
 #'   china_bu_chem    \tab Bottom-up  chemical mechanisms\tab MEE China\tab  .rds\cr
+#'   china_bu_chem_1h    \tab Bottom-up  chemical mechanisms\tab MEE China\tab  .rds\cr
 #' }
 #' @param url String, with the URL to download VEIN project
 #' @note  All projects include option to apply survival functions
@@ -228,7 +229,16 @@ get_project <- function(directory,
       utils::untar(tarfile = tf, exdir = directory)
       message("Your directory for vehicular emissions is in ", directory)
 
-      # curitiba ####
+      # china_bu_chem_realtime ####
+    } else if(case %in% c("china_bu_chem_1h")){
+      URL <- "https://raw.githubusercontent.com/atmoschem/vein/master/projects/china_bu_chem_realtime.tar.gz"
+      tf <- paste0(tempfile(), ".tar.gz")
+      utils::download.file(url = URL,
+                           destfile =  tf)
+      utils::untar(tarfile = tf, exdir = directory)
+      message("Your directory for vehicular emissions is in ", directory)
+
+            # curitiba ####
     } else if(case %in% c("curitiba")){
       URL <- "https://gitlab.com/ibarraespinosa/veinextras/-/raw/master/curitiba_all/curitiba.tar.gz"
       tf <- paste0(tempfile(), ".tar.gz")

diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -3,7 +3,7 @@ pkgdown: 2.0.7
 pkgdown_sha: ~
 articles:
   basics: basics.html
-last_built: 2023-06-15T06:01Z
+last_built: 2023-06-16T06:49Z
 urls:
   reference: http://atmoschem.github.io/vein/reference
   article: http://atmoschem.github.io/vein/articles

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/get_project.html b/docs/reference/get_project.html
diff --git a/man/get_project.Rd b/man/get_project.Rd
diff --git a/projects/china_bu_chem_realtime.tar.gz b/projects/china_bu_chem_realtime.tar.gz
diff --git a/projects/china_bu_chem_realtime/config/.~lock.inventory_chn_bu.xlsx# b/projects/china_bu_chem_realtime/config/.~lock.inventory_chn_bu.xlsx#
@@ -0,0 +1 @@
+,sergio,sergio-pc,18.11.2022 11:08,file:///home/sergio/.config/libreoffice/4;
diff --git a/projects/china_bu_chem_realtime/config/.~lock.inventory_chn_bu_v2.xlsx# b/projects/china_bu_chem_realtime/config/.~lock.inventory_chn_bu_v2.xlsx#
@@ -0,0 +1 @@
+,sergio,sergio-pc,18.11.2022 11:38,file:///home/sergio/.config/libreoffice/4;
diff --git a/projects/china_bu_chem_realtime/config/clean.R b/projects/china_bu_chem_realtime/config/clean.R
@@ -0,0 +1,16 @@
+# apagando dados
+a <- list.files(path = "config", pattern = ".rds", full.names = T)
+file.remove(a)
+
+unlink("csv", recursive = T)
+unlink("emi", recursive = T)
+unlink("images", recursive = T)
+unlink("notes", recursive = T)
+unlink("post", recursive = T)
+unlink("wrf/wrfc*")
+unlink("veh", recursive = T)
+
+
+system(paste0("tar -caf ", basename(getwd()), ".tar.gz ."))
+system(paste0("mv ", basename(getwd()), ".tar.gz ../"))
+file.remove(".Rhistory")