library(shiny)
ui <- fluidPage(
fluidRow(
column(3, echarts4rBoxOutput("box1"))
)
)
server <- function(input, output) {
output$box1 <- renderEcharts4rBox({
echarts4rBox(cars, speed, dist, "Cars", type = "bar")
})
}
if (FALSE) {
shinyApp(ui, server)
}
Run the code above in your browser using DataLab