Реактивные кнопки в реактивно обновляемой таблице данных - PullRequest
Новая
       6

Реактивные кнопки в реактивно обновляемой таблице данных

0 голосов
/ 17 мая 2018

Мой вопрос является расширением этого вопроса: R Shiny: Обрабатывать кнопки действий в таблице данных

Я пытаюсь добавить реактивные кнопки в таблицу данных, которая генерируется реактивно.

По сути, моя таблица состоит из набора данных на основе поискового запроса, введенного пользователем.Я хотел бы иметь кнопки в подмножестве и отображаемой таблице, но вместо кнопок, отображаемых, как в связанном вопросе, я получаю 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 = 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")
)

)

Спасибо за помощь.

...