R/FLO1K_select.R

In GregoireButruille/FishNmix2: Assess fish abiotic compatibility

#' Title Exctract chosen paramters from FLO1K
#'
#' @return
#' @export
#' @importFrom utils unzip
#' @param resolution Resolution
#'
#' @examples
FLO1K_select <- function(resolution) {

  flo1k_files = c()
  flo1k_files_names <- c("av", "mi", "ma")
  #for each avg/min/max, open the fie as a raster, convert it into data frame and add it to abotics_df
  for(i in 1:length(flo1k_files_names)){

    if (resolution == 30){
      name_flow <-paste0("FLO1K.30min.ts.1960.2015.q",flo1k_files_names[i],".nc")
      flow <-raster(unzip("flow_30_zip.zip",name_flow))
    }
    if (resolution == 10){
      name_flow <-paste0("FLO1K.5min.ts.1960.2015.q",flo1k_files_names[i],".nc")
      flow <-raster(unzip("flow_5_zip.zip",name_flow))
    }
    flo1k_files = c(flo1k_files, flow)
  }

  result <- flo1k_files
  return(result)
}