if (interactive()) {
library(shiny)
ui <- fluidPage(myIOOutput("chart"))
server <- function(input, output) {
output$chart <- renderMyIO({
myIO(data = mtcars) |>
addIoLayer(type = "point", label = "scatter",
mapping = list(x_var = "wt", y_var = "mpg"))
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab