add checks to read/write csv and refactor

2021-08-10 21:51:00 +02:00
parent 8e691e5d11
commit 6aa80534f8
3 changed files with 18 additions and 8 deletions
@@ -61,10 +61,3 @@ fetch_all <- function(download_dir="inst/records/", create=FALSE) {
    # if successful, set progressbar to 100%
    setTimerProgressBar(pb, 250)
 }
-
-stop_dir_not_creatable <- function(cond) {
-    # currently this has call: dir.create(download_dir)
-    # do we want to change this to fetch_all(...) ?
-    cond$message <- "Directory does not exist and can't be created. Probably because the path is not writeable."
-    stop(cond)
-}