inst/doc/using_shinystoreplus.R

In shinyStorePlus: Secure in-Browser and Database Storage for 'shiny' Inputs, Outputs, Views and User Likes

## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE,echo=TRUE-----------------------------------------------------
#  
#  # library
#  library(shiny)
#  
#  if(interactive()) {
#  ui <- fluidPage(
#      # Application title
#      titlePanel("shinyStorePlus by Obi Obianom"),
#  
#      # Sidebar with a slider input for number of bins
#      sidebarLayout(
#          sidebarPanel(
#              sliderInput("bins",
#                          "Number of bins:",
#                          min = 1,
#                          max = 50,
#                          value = 30),
#              selectizeInput(
#                'foo', label = NULL, choices = state.name,
#                options = list(create = TRUE),
#                multiple = TRUE
#              ),
#             textInput("redd","What if I?",value = "Wayword...")
#          ),
#  
#          # Show a plot of the generated distribution
#          mainPanel(
#              plotOutput("distPlot")
#          )
#      )
#  )
#  
#  server <- function(input,output,session) {
#    # make sure the  input, output, session arguments are present !IMPORTANT
#  
#      output$distPlot <- renderPlot({
#  
#          # generate bins based on input$bins from ui.R
#          x    <- faithful[, 2]
#          bins <- seq(min(x), max(x), length.out = input$bins + 1)
#  
#          # draw the histogram with the specified number of bins
#          hist(x, breaks = bins, col = 'darkgray', border = 'white',
#               xlab = 'Waiting time to next eruption (in mins)',
#               main = 'Histogram of waiting times')
#  
#      })
#  }
#  
#  shinyApp(ui = ui, server = server)
#  }
#  

## ----eval=FALSE,echo=TRUE-----------------------------------------------------
#  
#  # library
#  library(shiny)
#  library(shinyStorePlus)
#  
#  if(interactive()) {
#  ui <- fluidPage(
#      # Application title
#      titlePanel("shinyStorePlus by Obi Obianom"),
#  
#      # Sidebar with a slider input for number of bins
#      sidebarLayout(
#          sidebarPanel(
#              sliderInput("bins",
#                          "Number of bins:",
#                          min = 1,
#                          max = 50,
#                          value = 30),
#              selectizeInput(
#                'foo', label = NULL, choices = state.name,
#                options = list(create = TRUE),
#                multiple = TRUE
#              ),
#             textInput("redd","What if I?",value = "Wayword...")
#          ),
#  
#          # Show a plot of the generated distribution
#          mainPanel(
#              plotOutput("distPlot")
#          )
#      )
#  )
#  
#  server <- function(input,output,session) {
#    # make sure the  input, output, session arguments are present !IMPORTANT
#  
#      output$distPlot <- renderPlot({
#  
#          # generate bins based on input$bins from ui.R
#          x    <- faithful[, 2]
#          bins <- seq(min(x), max(x), length.out = input$bins + 1)
#  
#          # draw the histogram with the specified number of bins
#          hist(x, breaks = bins, col = 'darkgray', border = 'white',
#               xlab = 'Waiting time to next eruption (in mins)',
#               main = 'Histogram of waiting times')
#  
#      })
#  }
#  
#  shinyApp(ui = ui, server = server)
#  }
#  

## ----eval=FALSE,echo=TRUE-----------------------------------------------------
#  
#  # library
#  library(shiny)
#  library(shinyStorePlus)
#  
#  if (interactive()) {
#    ui <- fluidPage(
#      # Initialize shinyStorePlus
#      initStore(),
#  
#      # Application title
#      titlePanel("shinyStorePlus by Obi Obianom"),
#  
#      # Sidebar with a slider input for number of bins
#      sidebarLayout(
#        sidebarPanel(
#          sliderInput("bins",
#            "Number of bins:",
#            min = 1,
#            max = 50,
#            value = 30
#          ),
#          selectizeInput(
#            "foo",
#            label = NULL, choices = state.name,
#            options = list(create = TRUE),
#            multiple = TRUE
#          ),
#          textInput("redd", "What if I?", value = "Wayword...")
#        ),
#  
#        # Show a plot of the generated distribution
#        mainPanel(
#          plotOutput("distPlot")
#        )
#      )
#    )
#  
#    server <- function(input, output, session) {
#      # make sure the  input, output, session arguments are present !IMPORTANT
#  
#      output$distPlot <- renderPlot({
#  
#        # generate bins based on input$bins from ui.R
#        x <- faithful[, 2]
#        bins <- seq(min(x), max(x), length.out = input$bins + 1)
#  
#        # draw the histogram with the specified number of bins
#        hist(x,
#          breaks = bins, col = "darkgray", border = "white",
#          xlab = "Waiting time to next eruption (in mins)",
#          main = "Histogram of waiting times"
#        )
#      })
#    }
#  
#    shinyApp(ui = ui, server = server)
#  }
#  

## ----eval=FALSE,echo=TRUE-----------------------------------------------------
#  
#  # library
#  library(shiny)
#  library(shinyStorePlus)
#  
#  if (interactive()) {
#    ui <- fluidPage(
#      # Initialize shinyStorePlus
#      initStore(),
#  
#      # Application title
#      titlePanel("shinyStorePlus by Obi Obianom"),
#  
#      # Sidebar with a slider input for number of bins
#      sidebarLayout(
#        sidebarPanel(
#          sliderInput("bins",
#            "Number of bins:",
#            min = 1,
#            max = 50,
#            value = 30
#          ),
#          selectizeInput(
#            "foo",
#            label = NULL, choices = state.name,
#            options = list(create = TRUE),
#            multiple = TRUE
#          ),
#          textInput("redd", "What if I?", value = "Wayword...")
#        ),
#  
#        # Show a plot of the generated distribution
#        mainPanel(
#          plotOutput("distPlot")
#        )
#      )
#    )
#  
#    server <- function(input, output, session) {
#      # make sure the  input, output, session arguments are present !IMPORTANT
#  
#      output$distPlot <- renderPlot({
#  
#        # generate bins based on input$bins from ui.R
#        x <- faithful[, 2]
#        bins <- seq(min(x), max(x), length.out = input$bins + 1)
#  
#        # draw the histogram with the specified number of bins
#        hist(x,
#          breaks = bins, col = "darkgray", border = "white",
#          xlab = "Waiting time to next eruption (in mins)",
#          main = "Histogram of waiting times"
#        )
#      })
#  
#  
#      # insert at the bottom  !!!IMPORTANT
#      appid <- "applicatio32n501"
#      setupStorage(appId = appid, inputs = TRUE)
#    }
#  
#    shinyApp(ui = ui, server = server)
#  }
#