input <-
  list(
    x = 10,
    y = "Hello"
  )
library(shiny)

a <- 1
a

b = 2
b
my_df <- reactive({
  head(cars, input$x)
})

about_df <- reactiveValues(n_obs = nrow(my_df()), len = length(my_df()))
renderText(input$x)
renderText(input$y)


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