Question

我的问题是这个问题的延伸： R Shiny: Handle Action Buttons in Data Table

我正在尝试将反应性按钮添加到反应生成的数据表中。

基本上，我的表是根据用户输入的搜索词从数据框中进行子集化的。我希望在子集化和显示的表格中有按钮，但不是按链接问题中出现的按钮，而是为他们获取HTML代码。

这是服务器代码：

server = function(input, output, session) {

table<-reactive({
  filter(evidence_test,grepl(input$search,evidence_abstract,ignore.case=TRUE))[,c(input$show_vars)]
})

shinyInput <- function(FUN, len, id, ...) {
  inputs <- character(len)
  for (i in seq_len(len)) {
    inputs[i] <- as.character(FUN(paste0(id, i), ...))
  }
  inputs
}

df<-reactive({reactiveValues(
  data=data.frame(
    table(),
    Actions = shinyInput(actionButton, nrow(table()), 'button_', label = "Fire", onclick = 'Shiny.onInputChange(\"select_button\",  this.id)' ),
    stringsAsFactors = FALSE

  )
)
})

observeEvent(input$select_button, {
  selectedRow <- as.numeric(strsplit(input$select_button, "_")[[1]][2])
})


output$tbl <- DT::renderDataTable({
  df()$data
});

output$myText <- renderText({

  colnames(df$data)
})

}

这是UI代码：

 ui = fluidPage(
headerPanel("Search for article terms"),
sidebarPanel(
  textInput(inputId="search",value="kras",label="Search for a term", width=400),
  checkboxGroupInput(inputId='show_vars', label='Columns to show:', dbListFields(database,"evidence_test"),
                     selected = c("evidence_title","evidence_abstract","evidence_score","evidence_priority"))
),
mainPanel(
  DT::dataTableOutput("tbl")
)

）

感谢您的帮助。

反应性更新数据表中的反应按钮

0 个答案: