반짝이 데이터 테이블 클릭 ID가 작동하지 않습니다.

Question

다시 나타납니다. 프로젝트 작업 중이라서 붙어 있습니다. 내 클릭이 작동하지 않습니다. 나는 모든 반복을 시도하고 그것을 알아낼 수 없다. 기본적으로 클릭을 통해 데이터 테이블에서 여러 줄을 선택하고 싶습니다. 어느 시점에서 좀 더 필터링을 할 것입니다. 문제가 발생한 클릭입니다. 여기 내 코드가 있는데 .. 내가 놓친 게 있니? 감사. 라이브러리 (예측) 라이브러리 (반짝) 라이브러리 (shinythemes) 라이브러리 (ggplot2) 라이브러리 (dplyr) 라이브러리 (저울) 라이브러리 (반짝) 라이브러리 라이브러리 (DT)

라이브러리 (예측) (shinythemes) 라이브러리 (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.

관찰하십시오 (print (graphids()))