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