refactor again because of check complaining

2021-08-07 02:00:09 +02:00
parent 4b3e85be62
commit 502dc45781
22 changed files with 17 additions and 17 deletions
@@ -41,7 +41,7 @@ fetch_batch <- function(offset, download_dir) {
 #' if create is TRUE, the directory given in download_dir is created
 #'
 #' @export
-fetch_all <- function(download_dir="data/records/", create=FALSE) {
+fetch_all <- function(download_dir="inst/records/", create=FALSE) {
    # check if download_dir path is a directory path
    if (str_sub(download_dir, -1) != .Platform$file.sep)
        download_dir <- str_c(download_dir, .Platform$file.sep)