library(shiny) 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.