test_app/test-app-download.R

library(shiny)

ui <- fluidPage(
  download_xlsx_UI("download"),
  textInput("text", "File Names:")
)

server <- function(input, output, session) {
  
  data <- reactive({ iris })
  
  text_react <- reactive({   paste0(input$text , ".xlsx") })
  
  download_xlsx_Server("download", 
                       list(dat = data()), 
                       "iris.xlsx",
                       text_react
                       )
  
}

shinyApp(ui, server)
Lightbridge-KS/ZoomInterface documentation built on April 24, 2022, 4:51 p.m.