if (interactive()) {
library(shiny)
library(reactable)
library(reactable.extras)
shinyApp(
reactable_extras_ui("big_data"),
function(input, output, server) {
reactable_extras_server(
"big_data",
data = mtcars,
columns = list(
mpg = reactable::colDef(name = "Miles per Gallon"),
cyl = reactable::colDef(name = "Cylinders"),
disp = reactable::colDef(name = "Displacement")
),
rows_per_page = 7
)
}
)
}
Run the code above in your browser using DataLab