if (FALSE) {
# In a Shiny server function:
output$chart <- renderMyIO({
myIO(data = mtcars) |>
addIoLayer(
type = "regression", label = "fit",
mapping = list(x_var = "wt", y_var = "mpg"),
options = list(ci_level = 0.95)
) |>
setSlider("ci_level", "Confidence level", 0.80, 0.99, 0.95, 0.01)
})
}
Run the code above in your browser using DataLab