[skip ci] use here::here() for R-raw/*.Rmd and render

R-raw/data.Rmd

@@ -1,24 +1,27 @@
 ---
 title: processing raw data to package data
+date: "`r Sys.Date()`"
 ---
 
-# preparation
-
-```{r include=FALSE}
-assertthat::assert_that(
-    knitr::current_input() %>% paste0('R-raw/', .) %>% file.exists(),
-    msg = 'Please set knitr root directory to project directory! You may try running `rmarkdown::render("data-raw/data.Rmd")` at project directory or clicking `Knit` button on the top of this document in RStudio.'
-)
+```{r knitr-setup, include=FALSE}
+knitr::opts_knit$set(root.dir = here::here(''))
 ```
 
+
+
+# clean
+
 ```{r clean, include=FALSE}
-dir('data', full.names = T) %>% file.remove()
+dir(here::here('data'), full.names = T) %>% file.remove()
 rm(list = ls(envir = globalenv(), all = T))
 ```
 
+
+
 # Process raw data
 
 
+
 # Afterward
 
 ```{r reinstall}
@@ -28,7 +31,3 @@ roxygen2::roxygenize() # you may also have edited data documentation
 system('R CMD INSTALL --no-multiarch --with-keep.source .')
 devtools::reload()   # now you can use the new data in current R session 
 ```
-
-
-
-

R-raw/vignettes.Rmd

@@ -3,34 +3,27 @@ title: build package vignettes
 ---
 
 
-# preparation
-
-```{r include=FALSE}
-assertthat::assert_that(
-    knitr::current_input() %>% paste0('R-raw/', .) %>% file.exists(),
-    msg = 'Please set knitr root directory to project directory! You may try running `rmarkdown::render("data-raw/data.Rmd")` at project directory or clicking `Knit` button on the top of this document in RStudio.'
-)
-```
-
 
 # Build vignettes
 
 ```{r build-vignettes}
-rmd_vignettes <- dir('vignettes', 'Rmd$', full = T);
-
-if (length(rmd_vignettes) > 0L) {
-	for (rmd_vignette in rmd_vignettes) {
-		callr::r_vanilla(
-			function(input_file) {options(encoding = 'UTF-8'); rmarkdown::render(input_file)}, 
-			list(rmd_vignette), .libPaths(), show = T
-		)
-	}
-	
-	dir('vignettes', 'html$') %>% {file.copy(paste0('vignettes/', .), paste0('inst/doc/', .), overwrite = T)}
+for (rmd_vignette in dir(here::here('vignettes'), 'Rmd$', full = T)) {
+    callr::r_vanilla(
+        function(input_file) {rmarkdown::render(input_file)}, 
+        list(rmd_vignette), .libPaths(), show = T
+    )
 }
+	
+dir(here::here('vignettes'), 'html$') %>%
+    {file.copy(
+        paste0(here::here('vignettes/'), .), 
+        paste0(here::here('inst/doc/'), .), 
+        overwrite = T
+    )}
 ```
 
 
+
 # Afterward
 
 ```{r reinstall}
@@ -39,4 +32,3 @@ if (length(rmd_vignettes) > 0L) {
 system('R CMD INSTALL --no-multiarch --with-keep.source .')
 devtools::reload()  # now you can view the vignettes
 ```
-