Adding functions to download FAOSTAT data

NAMESPACE

@@ -5,7 +5,8 @@ export(FAOSTAT_load_raw_data)
 export(FAOSTAT_metadata)
 export(FF_FILL_NUMERATOR_DENOMINATOR)
 export(FF_check_count_plot)
-export(FF_download_faostat_bulk)
+export(FF_download_FAOSTAT)
+export(FF_download_RemoteArchive)
 export(FF_join_checkmap)
 export(FF_rawdata_info)
 export(FF_summary)
@@ -35,7 +36,6 @@ export(outputs_of)
 export(parse_csv_header)
 export(protect_integer_cols)
 export(repeat_add_columns)
-export(return_modified)
 export(rm_accent)
 export(standardize_iso)
 export(unprotect_integer_cols)
@@ -90,6 +90,7 @@ importFrom(purrr,reduce)
 importFrom(readr,read_csv)
 importFrom(stats,aggregate)
 importFrom(tibble,as_tibble)
+importFrom(tibble,is_tibble)
 importFrom(tibble,rownames_to_column)
 importFrom(tibble,tibble)
 importFrom(tidyr,complete)

R/utils-data.R

@@ -346,24 +346,6 @@ return_data <- function(...) {
   dots
 }
 
-#' return_modified
-#'
-#' Construct a data structure of objects (\code{...}) and return it.
-#' This version should only be used in user modification chunks where
-#' it is used in place of \link{return_data}.
-#'
-#' @param ... Objects to handle
-#' @return Object ready for insertion into the data system data structure.
-#' @export
-return_modified <- function(...) {
-  data_list <- return_data(...)
-  lapply(names(data_list), function(dname) {
-    attr(data_list[[dname]], ATTR_PRECURSORS) <<- c(dname)
-  })
-  names(data_list) <- paste0(names(data_list), data.USER_MOD_POSTFIX)
-
-  data_list
-}
 
 #' empty_data
 #'