tests/testthat/server.r

In iainmwallace/scaffoldingShiny: Quickly scaffold a shiny app based on a template

function(input, output, session) {
  dataset_to_save <- reactive({
    my_data <- tibble(
      id1 = input$id1,
      id2 = input$id2
    )
    return(my_data)
  })

  registerData <- observeEvent(input$save, {
    my_dataset <- dataset_to_save()

    withProgress(message = "Registering", value = 0.2, {
      dbWriteTable(conn, datatable, my_dataset, append = TRUE)
    })
    showModal(modalDialog(
      title = "Thank you!",
      "Data has been saved"
    ))
  })
  allData <- function() {
    my_data <- tbl(conn, datatable) %>% collect()
    shiny::validate(need(nrow(my_data) > 0, "no data"))
    return(my_data)
  }
  output$data <- DT::renderDataTable({
    data <- allData()

    data <- data %>% select(
      everything()
    )

    DT::datatable(
      data, selection = "single",
      filter = "top",
      rownames = FALSE,
      escape = FALSE,
      options = list(
        scrollX = TRUE
      )
    )
  })
  output$download_data <- downloadHandler(
    filename = function() {
      paste("download_data", ".csv", sep = "")
    },
    content = function(file) {
      write_csv(allData(), file)
    }
  )
}