tests/testthat/migrate-apps/10/app.R

In rstudio/shinytest2: Testing for Shiny Applications

library(shiny)

# Define UI for data download app ----
ui <- fluidPage(

  # App title ----
  titlePanel("Downloading Data"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

      # Input: Choose dataset ----
      selectInput("dataset", "Choose a dataset:",
                  choices = c("rock", "pressure", "cars")),

      # Button
      downloadButton("download_data", "Download")

    ),

    # Main panel for displaying outputs ----
    mainPanel(

      tableOutput("table")

    )

  )
)

# Define server logic to display and download selected file ----
server <- function(input, output) {

  # Reactive value for selected dataset ----
  dataset_input <- reactive({
    dt <- switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
    head(dt, 10)
  })

  # Table of selected dataset ----
  output$table <- renderTable({
    dataset_input()
  })

  # Downloadable csv of selected dataset ----
  output$download_data <- downloadHandler(
    filename = function() {
      paste(input$dataset, ".csv", sep = "")
    },
    content = function(file) {
      write.csv(dataset_input(), file, row.names = FALSE)
    }
  )

}

# Create Shiny app ----
shinyApp(ui, server)