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。

观察（印刷（graphids（）））

闪亮的数据表点击ID不起作用

1 个答案: