Shiny Datatable Click ID не работает

Question

Вернуться снова. Работаю над проектом, и я застрял. Мой клик не работает. Я перепробовал каждую итерацию и не могу понять. По сути, я хочу выбрать несколько строк в таблице данных с помощью щелчка, после чего я сделаю еще несколько фильтров. Клик, с которым у меня проблемы. Вот мой код... Вы видите что-нибудь, что я пропускаю? Благодарю. библиотека (прогноз) библиотека (блестящая) библиотека (блестящая тема) библиотека (ggplot2) библиотека (dplyr) библиотека (масштабирование) библиотека (DT)

библиотека (прогноз) библиотека (блестящая) библиотека (блестящая тема) библиотека (ggplot2) библиотека (dplyr) библиотека (масштабирование) библиотека (DT)

source("NEW.R", local = TRUE)

branch1 <- unique(distinctlineitems$BRANCH)


 ui <- navbarPage(
 theme = shinytheme("cosmo"),
 title = "EXPENDITURES",
 tabPanel("TAB1",

       sidebarLayout(
         sidebarPanel(
           checkboxGroupInput("branches",label = NULL,choices = branch1      ,selected = NULL),
           actionButton('selectallB','Select All'),
           textInput("words", "Search"),
           h5("Separate keywords with commas."),
           plotOutput("plot", width = "100%"),
           plotOutput("season", width = "100%")),



         # Show a plot of the generated distribution
         mainPanel(
           fluidRow(csvDownloadUI("dwnld", "DOWNLOAD"), style =       "padding:10px"),
           DT::dataTableOutput("table")

 server <- function(input, output, session) {
 branchfilter <- reactive({
 filt <- distinctlineitems[distinctlineitems$BRANCH %in% input$branches,]
 return(filt)
 })

graphids <- reactive({
if(length(input$table_rows_selected) < 1) return(NULL)
id <- input$table_rows_selected
x <- branchfilter()$REMARKS[id]
})
output$table <- renderDataTable({
  test <- DT::datatable(branchfilter(),
               filter = "top",
               rownames = FALSE,
               selection = "multiple")

})

Answer 1

Оказывается, я смог ответить на свой вопрос по этому вопросу. Поскольку я пытался проверить его в Reactive, я не смог увидеть результат. Для того, чтобы проверить, мне пришлось завернуть в заявление наблюдения. Так просто. По факту. Спасибо tobiaseli_te.

наблюдать (печать (graphids()))