library(shiny)
library(shinyWidgets)
ui <- fluidPage(
html_dependency_winbox()
)
server <- function(input, output, session) {
WinBox(
title = "WinBox",
ui = tagList(
tags$h3("Hello from WinBox!")
)
)
}
if (interactive())
shinyApp(ui, server)
Run the code above in your browser using DataLab