shinyforms (version 0.0.0.9000)

formServer: Creates the server component for shinyforms

Description

Creates the server component for shinyforms

Usage

formServer(formInfo)

Arguments

formInfo

A list with param: id, questions and storage

Examples

# NOT RUN {
if (interactive()) {
library(shiny)
library(shinyforms)

questions <- list(
  list(id = "name", type = "text", title = "Name", mandatory = TRUE),
  list(id = "age", type = "numeric", title = "Age"),
  list(id = "favourite_pkg", type = "text", title = "Favourite R package"),
  list(id = "terms", type = "checkbox", title = "I agree to the terms")
)
formInfo <- list(
id = "basicinfo",
questions = questions,
storage = list(
  # Right now, only flat file storage is supported
  type = STORAGE_TYPES$FLATFILE,
  # The path where responses are stored
  path = "responses"
)
)
ui <- fluidPage(
  formUI(formInfo)
)

server <- function(input, output, session) {
  formServer(formInfo)
}

shinyApp(ui = ui, server = server)
} 
# }