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

library(shiny)

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

Try the shinylive package in your browser

Any scripts or data that you put into this service are public.

shinylive documentation built on April 4, 2025, 5:45 a.m.