|
|
@@ -272,6 +272,10 @@ read_from_csv <- function(path="inst/csv/") { |
|
|
res |
|
|
res |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
#' @param path directory of csv files to read |
|
|
|
|
|
#' read data from csv files if they exist already |
|
|
|
|
|
#' otherwise fetch protocols and then write the data into csv files |
|
|
|
|
|
#' |
|
|
#' @export |
|
|
#' @export |
|
|
read_from_csv_or_fetch <- function(path="inst/") { |
|
|
read_from_csv_or_fetch <- function(path="inst/") { |
|
|
path <- make_directory_path(path) |
|
|
path <- make_directory_path(path) |
|
|
|