chatbotUI: chatbotUI Shiny UI Module
In IMWatson: Chat with Watson's Assistant API

Description Usage Arguments Examples

An user interface for your shiny watson assistant apps

1	chatbotUI(id)

`id`	namespace id

if(interactive()){
### APP ###
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(),
    dashboardSidebar(),
      dashboardBody(uiOutput("context"),
                      IMWatson::chatbotUI("watson"))
                      )
server <- function(input, output, session) {
rv <- reactiveValues(rv.chat = FALSE)
bot <- reactive({
callModule(IMWatson::chatbox, "watson", texlog)
})
output$context <- renderUI(bot()$magic)
}
shinyApp(ui, server)
 }