Question

我希望用户单击一个按钮，然后调用renderDataTable函数

这就是我现在正在做的事情：

用户界面具有以下内容：

ui <- fluidPage(
 actionButton("tbl","Show Table"),
 DT::dataTableOutput("t_all")
)

服务器：

server <- function(input, output){

summary_table_RCT <- eventReactive(input$tbl, {summary_table})

output$t_all <-
DT::renderDataTable(
  summary_table_RCT(), 
  filter = 'top',
  class = "cell-border stripe",
  rownames = FALSE,
  extensions = c("FixedColumns"),
  options = list(searchHighlight = TRUE, 
                 regex = TRUE,
                 scrollX = TRUE,
                 fixedColumns = list(leftColumns = 5)) 
)
}

shinyApp(ui, server)

不知道为什么它不起作用，这与我在eventReactive（）中看到的一些示例几乎相同。我看到按钮出现了，但是单击后它什么也没做。

Answer 1

找到了答案，希望有人必须经历同样的挫折才能找到答案，然后再让他们发疯。但是在应用程序的另一个选项卡中，另一位开发人员使用了SubmitButton（），它基本上中断了所有反应性事件，直到按下按钮为止。仅应在只有一个按钮的非常简单的应用中使用。

R单击actionbutton后仅闪亮renderDataTable

1 个答案: