example-builder.R

In jtlandis/shiny.forms: Generate Forms From Shiny

library(shiny.forms)
library(shiny)
#example

test <- ShinyFormBuilder$new("test_id", cache = here::here("cache"))
shinyApp(ui = fluidPage(
  test$ui(),
  actionButton(".browse", "Browse")), function(input, output, session){

    p <- test$reactive()

    test$call()

    observeEvent(input$.browse, {
      browser()

      return(NULL)
    })
  })