shinyservicebot.R
In shinyservicebot: Servicebot 'Shiny' Integration

## ----setup, echo = FALSE, message = FALSE--------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", width = 68)

## ----eval=FALSE----------------------------------------------------------
#  install.packages("servicebot")

## ----eval=FALSE----------------------------------------------------------
#  install.packages("remotes")
#  remotes::install_github("capiaas/servicebot")

## ----eval=FALSE----------------------------------------------------------
#  library(shinyservicebot)
#  shinyservicebot::shinyservicebot(servicebot_config, width = "auto")
#  
#  # init servicebot pr user login
#  shinyservicebot::init(dev_mode = TRUE)
#  # Config
#  servicebot_config = list(
#    servicebot_id =  "E0OQN0P0Dort", # // LIVE & TEST MODE IDs ARE DIFFERENT
#    service =   "Flat Subscription",
#    email =  "shinyservicebot36io3ejbyf1pea7g61mxki@yopmail.com"
#  )
#  # Render the shinyservoicebot pricing
#  shinyservicebot::shinyservicebotOutput("servicebot")

## ----eval=FALSE----------------------------------------------------------
#  library(shiny)
#  library(shinyservicebot)
#  
#  # -------
#  # FOR LIVE PRODUCTION
#  # -------
#  # shinyservicebot::init(
#  #   servicebot_secret    = "Your servicebot secret",
#  #   secure_setup         = TRUE
#  # )
#  
#  # -------
#  # FOR DEVELOPMENT
#  # -------
#  shinyservicebot::init(dev_mode = TRUE)
#  
#  # Config
#  servicebot_config = list(
#    servicebot_id =  "E0OQN0P0Dort", # // LIVE & TEST MODE IDs ARE DIFFERENT
#    service =   "Flat Subscription",
#    email =  "shinyservicebot36io3ejbyf1pea7g61mxki@yopmail.com",
#    options = list(
#      i18n  = list(defaultLng = "en") # // SET DEFAULT LANGUAGE
#    )
#  )
#  
#  # UI ----
#  ui <- fluidPage(
#    # App title ----
#    titlePanel("SERVICEBOT PORTAL PAGE"),
#    shinyservicebot::shinyservicebotOutput("servicebot")
#  )
#  
#  # SERVER ----
#  server <- function(input, output) {
#    output$servicebot <- shinyservicebot::renderShinyservicebot(
#      shinyservicebot::shinyservicebot(servicebot_config, width = "auto")
#    )
#  }
#  
#  
#  # Create Shiny app ----
#  shinyApp(ui = ui, server = server)
#  

## ----eval=FALSE----------------------------------------------------------
#   # Test pricing embed inshiny app
#   shinyservicebot::runPricingExample()
#  
#   # Test portal embed inshiny app
#   shinyservicebot::runPortalExample()
#  
#   # Test signup embed inshiny app
#   shinyservicebot::runSignupExample()