# NOT RUN {
# html code
popover("title", "Some content")
# example app
# }
# NOT RUN {
shinyApp(
ui = fluidPage(
jscolorInput(inputId = "col", label = "JSColor Picker",
value = "21BF6B", position = "right",
mode = "HVS", close = TRUE),
popover(title = "Help!", content = "Call 911"),
plotOutput("plot")
),
server = function(input, output) {
output$plot <- renderPlot({
plot(cars, col = input$col, cex = 2, pch = 16)
})
})
# }
Run the code above in your browser using DataLab