Untitled"

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)


Try the shinyobjects package in your browser

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

shinyobjects documentation built on July 29, 2020, 9:07 a.m.