inst/shiny/getData.R

In USGS-R/toxEval: Exploring Biological Relevance of Environmental Chemistry Observations

rawData_data <- reactiveValues(data = NULL)

observeEvent(input$exampleData,{
  newPath <- file.path(system.file("extdata", package="toxEval"),"OWC_data_fromSup.xlsx")
  rawData_data$data <- create_toxEval(newPath)

  epDF[["fileName"]] <- newPath
  
})

observeEvent(input$data,{
    path <- file.path(input$data$datapath)
    
    newPath <- paste0(input$data$datapath,"_",input$data$name)
    
    epDF[["fileName"]] <- input$data$name
    
    newPath <- gsub(", ","_",newPath)
    
    file.rename(from = path, to = newPath)
    
    if(tools::file_ext(input$data$name) == "xlsx" |
       tools::file_ext(input$data$name) == "xls"){
      
      rawData_data$data <- create_toxEval(newPath)
      
      
    } else if(tools::file_ext(input$data$name) == "RData" | 
              tools::file_ext(input$data$name) == "rda"){
      load(newPath)
      
      if(exists("chem_data") & exists("chem_info") & 
         exists("chem_site")) {
        if(exists("exlusions")){
          rawData_data$data <- create_toxEval(chem_data=chem_data,
                                    chem_info=chem_info,
                                    chem_site=chem_site,
                                    exclusions=exclusions)
        } else {
          rawData_data$data <- create_toxEval(chem_data=chem_data,
                                    chem_info=chem_info,
                                    chem_site=chem_site,
                                    exclusions=NULL)
        }
      } 
      
      if(any(sapply(ls(), function(x) class(get(x))) == "toxEval")){
        rawData_data$data <- get(ls()[which(sapply(ls(), function(x) class(get(x))) == "toxEval")])
      }
      
    } else if(tools::file_ext(input$data$name) == "rds"){
      rawData_data$data <- readRDS(newPath)
    }
  }
)

rawData <- reactive({

  return(rawData_data$data)
  
})