tests/testthat/demo-r-server-full.R

In shinyobjects: Access Reactive Data Interactively

library(shiny)

server <- function(input, output) {
  my_df <- reactive({
    head(cars, input$x)
  })
  
  about_df <- reactiveValues(n_obs = nrow(my_df()), len = length(my_df()))
  
  output$plot <- renderPlot(
    plot(my_df())
  )
}

dummy_input <- list(
  x = 10, 
  y = "Hello"
)