tests/testthat/apps/files-app-server/server.R

In rstudio/shinytest2: Testing for Shiny Applications

library(shiny)


function(input, output, session) {
  output$greeting <- renderText({
    shiny::req(input$greet)
    paste0("Hello ", shiny::isolate(input$name), "!")
  })
}