tests/testthat/apps/app-r/app.R

In shinylive: Run 'shiny' Applications in the Browser

library(shiny)

ui <- fluidPage(
  sliderInput("n", "N", 0, 100, 40),
  verbatimTextOutput("txt", placeholder = TRUE),
)

server <- function(input, output) {
  output$txt <- renderText({
      paste0("The value of n*2 is ", 2 * input$n)
  })
}

shinyApp(ui, server)