if (interactive() && requireNamespace("crosstalk", quietly = TRUE)) {
shared <- crosstalk::SharedData$new(mtcars, key = ~rownames(mtcars))
myIO() |>
addIoLayer(
type = "point", label = "scatter",
data = shared$data(), mapping = list(x_var = "wt", y_var = "mpg")
) |>
setLinked(shared)
}
Run the code above in your browser using DataLab