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

library(shiny)

server <- function(input, output, session) {
  output$g <- renderText(paste0("Weight (in g): ", input$kg * 1000))
}
rstudio/shinytest2 documentation built on March 29, 2025, 10:58 p.m.