R/geo_overview.R

In EcoDynIZW/d6geodata: geo data acces package ecodyn department IZW

#' show overview of geodata
#' @return a list with folder names
#' @param path_to_cloud set the path to the cloud
#' @export
#' @examples
#' \dontrun{
#' geo_overview()
#' }

geo_overview <- function(path_to_cloud){
  data_fold <- c("data-raw", "data-proc")[utils::menu(c("raw", "processed"), title = "Raw or processed data:")]

  folder <- c("main", "sub")[utils::menu(c("main", "sub"), title = "choose folder type:")]


  # show main folders
  main_fold <- list.dirs(paste(path_to_cloud, "GeoData", data_fold, sep = "/"), recursive = FALSE, full.names = FALSE)
  if(folder %in% "main"){
    print(main_fold)
  }
  # show sub folders
  if(folder %in% "sub"){
    sub_fold <- lapply(main_fold,
                       function(x){
                         fold_list <- list.dirs(paste(path_to_cloud, "GeoData", data_fold, x, sep = "/"),
                                                recursive = FALSE,
                                                full.names = FALSE)
                         fold_list <- fold_list[-which(fold_list %in% c("_archive","_old_not_verified", "scripts"))]
                         return(fold_list)}
    )
    names(sub_fold) <- main_fold

    print(sub_fold)
  }
}