inst/shiny/server/tab-dataset.R

In ddpcr: Analysis and Visualization of Droplet Digital PCR in R and on the Web

# ddPCR R package - Dean Attali 2015
# --- Dataset tab server --- #

# only enable the upload buttons when their corresponding input has a file selected
observeEvent(input$uploadDataFiles, ignoreNULL = FALSE, {
  toggleState("uploadFilesBtn", !is.null(input$uploadDataFiles))
})
observeEvent(input$loadFile, ignoreNULL = FALSE, {
  toggleState("loadFileBtn", !is.null(input$loadFile))
})

# when "Upload data" button is clicked
observeEvent(input$uploadFilesBtn, {
  withBusyIndicator("uploadFilesBtn", {
    dataFiles <- input$uploadDataFiles %>% fixUploadedFilesNames
    metaFile <- input$uploadMetaFile %>% fixUploadedFilesNames
    
    # read plate using uploaded files
    dataValues$plate <-
      new_plate(data_files = dataFiles$datapath,
                meta_file = metaFile$datapath,
                type = plate_types$fam_positive_pnpp)
    
    output$datasetChosen <- reactive({ TRUE })
    updateTabsetPanel(session, "mainNav", "settingsTab")
  })
})

# when a file is chosen to load a saved dataset
observeEvent(input$loadFileBtn, {
  withBusyIndicator("loadFileBtn", {
    file <- input$loadFile %>% fixUploadedFilesNames
    dataValues$plate <- load_plate(file$datapath)
    
    output$datasetChosen <- reactive({ TRUE })
    updateTabsetPanel(session, "mainNav", "settingsTab")
  })
})

# load the sample dataset
observeEvent(input$loadSampleBtn, {
  withBusyIndicator("loadSampleBtn", {
    dataValues$plate <- sample_plate(input$sampleDatasetType)
    
    output$datasetChosen <- reactive({ TRUE })
    updateTabsetPanel(session, "mainNav", "settingsTab")
  })
})

# download sample data file
output$sampleDataFile <- downloadHandler(
  filename = function() { "example_dataset_F05_Amplitude.csv" },
  content = function(file) {
    file.copy(from = sample_data_file(), to = file, overwrite = TRUE)
  }
)

# download sample results file
output$sampleResultsFile <- downloadHandler(
  filename = function() { "example_dataset.csv" },
  content = function(file) {
    file.copy(from = sample_results_file(), to = file, overwrite = TRUE)
  }
)