Now how could I access what are selected?
library(shiny)
library(DT)
library(reactable)
library(crosstalk)
cars <- copy(mtcars)
dt0 <- SharedData$new(cars)
ui <- fluidPage(
titlePanel("My reactable"),
tabsetPanel(id='inTabSet',
tabPanel("DT1", uiOutput("dt1")),
tabPanel("DT2", DT::dataTableOutput("dt2"))
)
)
server <- function(input, output) {
output$dt1 <- renderUI({
bscols(
widths = c(3,9),
list(
filter_checkbox("cyl", "CYL", dt0, ~cyl),
filter_slider("drat", "DRAT", dt0, ~drat, width = "100%"),
filter_select("am", "AUTO", dt0, ~am)
),
reactable(dt0,
filterable = TRUE, searchable = TRUE
,selection = "multiple", selectionId = "selected", striped = T, onClick = "select"
,resizable = TRUE, wrap = FALSE, bordered = TRUE, compact = TRUE
,minRows = 5
)
)
})
selected_y1 <- reactive(getReactableState("dt1", "selected"))
selected_dt1 <- reactive({
dt0[selected_y1(),]
})
output$dt2 <- renderDT({
selected_dt1()
})
}
shinyApp(ui = ui, server = server)
Apparently, selected_y1, selected_dt1 do not work.