Используйте Shiny ActionButton, чтобы выбрать все строки или добавить все строки к выделению в текущем представлении с фильтрацией в таблице данных DT - PullRequest
Новая
       28

Используйте Shiny ActionButton, чтобы выбрать все строки или добавить все строки к выделению в текущем представлении с фильтрацией в таблице данных DT

0 голосов
/ 10 июля 2020
  1. Я пытался создать ActionButtons, чтобы позволить пользователю «Выбрать все строки в представлении» в реактивном фильтрующем элементе данных.

В настоящее время кнопка делает это с помощью tableid_rows_current; однако я также хочу добавить прокси-сервер таблицы, чтобы он не сбрасывался на первую страницу результатов, если вы находитесь на другой странице, но я не могу понять синтаксис после долгого поиска в Google (см. попытки, закомментированные в код). Также, если вы вручную выберете несколько строк, он больше не работает.

Другой ActionButton, который позволяет пользователю «добавлять все строки в поле зрения к выделенным». То есть добавить все текущие строки к предыдущему выбору. Я даже не уверен, с чего начать, поэтому приветствуются любые идеи.

(Здесь не включено, но у меня уже есть работающие кнопки «Очистить выбор» и «Очистить фильтр», если кому интересно)

Минимальный воспроизводимый код ниже. Приложение предназначено для отображения изображений для выбранных строк, но здесь нет ничего страшного в том, что у вас не будет реального отображения изображений. 

library(DT)
library(shiny)

dat <- data.frame(
  type = c("car", "truck", "scooter", "bike"),
  frontimage = c("carf.jpg", "truckf.jpg", "scooterf.jpg", "bikef")
)
  
# ----UI----
ui <- fluidPage(
  titlePanel("Buttons 'select all' and 'add to select'"),
  
  mainPanel(
    DTOutput("table"),
    actionButton("select_all_current", "Select All Rows in View"),
    actionButton("add_to_selection", "Add All Rows in View to Selection"),
    uiOutput("img1")
  )
)

# ----Server----
server = function(input, output, session){
  
  # Action button to select all rows in current view
  var <- reactiveValues()
  tableProxy <- dataTableProxy('table')
  
  observeEvent(input$select_all_current, {
    print("select_all_current")
    # tableProxy %>% selectRows(1:nrow(input$table_rows_current))
    # var$selected <- tableProxy %>% input$table_rows_current
    
    tableProxy <- #I want the table proxy to be whatever the current selection and filters are and the current page view to stay the same after selecting
      var$selected <- input$table_rows_current
  })
  
  # Action button to add all rows in current view to previous selection
  observeEvent(input$add_to_selection, {
    print("select_all_current")
    
  })
  
  # Data table with filtering
  output$table = DT::renderDT({
    datatable(dat, filter = list(position = "top", clear = FALSE), 
              selection = list(target = 'row', selected = var$selected),
              options = list(
                autowidth = TRUE,
                pageLength = 2,
                lengthMenu = c(2, 4)
              ))
  })
  
  # Reactive call that only renders images for selected rows 
  df <- reactive({
    dat[input[["table_rows_selected"]], ]
  })
  
  # Front image output
  output$img1 = renderUI({
    imgfr <- lapply(df()$frontimage, function(file){
      tags$div(
        tags$img(src=file, width="100%", height="100%")
      )
      
    })
    do.call(tagList, imgfr)
  })

}
# ----APP----    
# Run the application 
shinyApp(ui, server)

1 Ответ

1 голос
/ 11 июля 2020

Это делает то, что вы ищете? 

library(DT)
library(shiny)

dat <- data.frame(
  type = c("car", "truck", "scooter", "bike"),
  frontimage = c("carf.jpg", "truckf.jpg", "scooterf.jpg", "bikef")
)

# ----UI----
ui <- fluidPage(
  titlePanel("Buttons 'select all' and 'add to select'"),
  
  mainPanel(
    DTOutput("table"),
    actionButton("select_all_current", "Select All Rows in View"),
    actionButton("add_to_selection", "Add All Rows in View to Selection"),
    uiOutput("img1")
  )
)

# ----Server----
server = function(input, output, session){
  
  # Action button to select all rows in current view
  var <- reactiveValues()
  tableProxy <- dataTableProxy('table')
  
  observeEvent(input$select_all_current, {
    print("select_all_current")
    # tableProxy %>% selectRows(1:nrow(input$table_rows_current))
    # var$selected <- tableProxy %>% input$table_rows_current
    
    # tableProxy <- #I want the table proxy to be whatever the current selection and filters are and the current page view to stay the same after selecting
      # var$selected <- input$table_rows_current
    selectRows(proxy = tableProxy,
               selected = input$table_rows_current)
  })
  
  # Action button to add all rows in current view to previous selection
  observeEvent(input$add_to_selection, {
    print("select_all_current")
    
    selectRows(proxy = tableProxy,
               selected = c(input$table_rows_selected, input$table_rows_current))
    
  })
  
  # Data table with filtering
  output$table = DT::renderDT({
    datatable(dat, filter = list(position = "top", clear = FALSE), 
              selection = list(target = 'row'),#, selected = var$selected),
              options = list(
                autowidth = TRUE,
                pageLength = 2,
                lengthMenu = c(2, 4)
              ))
  })
  
  # Reactive call that only renders images for selected rows 
  df <- reactive({
    dat[input[["table_rows_selected"]], ]
  })
  
  # Front image output
  output$img1 = renderUI({
    imgfr <- lapply(df()$frontimage, function(file){
      tags$div(
        tags$img(src=file, width="100%", height="100%")
      )
      
    })
    do.call(tagList, imgfr)
  })
  
}
# ----APP----    
# Run the application 
shinyApp(ui, server)
...