input <-
  list(x = 10)
library(shiny)
renderText(input$x)
renderText(input$y)
my_df <- reactive({
  head(cars, input$x)
})

about_df <- reactiveValues(n_obs = nrow(my_df()), len = length(my_df()))


rjake/shinyobjects documentation built on June 12, 2022, 4:11 p.m.