Shiny module for selecting data
Shiny module for selecting data
dataSelectUI(id) dataSelectServer(id, data = reactive(NULL), hide = FALSE)
id |
unique identifier for the module to prevent namespace clashes when making multiple calls to this shiny module. |
data |
an array wrapped in |
hide |
logical indicating whether the data selection user interface should be hidden from the user, set to FALSE by default. |
a list of reactive objects containing the filtered data and
indices for selected columns.
Dillon Hammill, Dillon.Hammill@anu.edu.au
if (interactive()) {
library(shiny)
library(rhandsontable)
library(shinyjs)
ui <- fluidPage(
useShinyjs(),
dataInputUI("input1"),
dataSelectUI("select1"),
rHandsontableOutput("data1")
)
server <- function(input,
output,
session) {
data_input <- dataInputServer("input1")
data_select <- dataSelectServer("select1",
data = data_input
)
output$data1 <- renderRHandsontable({
if (!is.null(data_select$data())) {
rhandsontable(data_select$data())
}
})
}
shinyApp(ui, server)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.