Выберите столбцы для карты реактивного тепла

Question

Я создаю приложение Shiny и хочу, чтобы реактивность контролировала, какие столбцы отображаются в тепловой карте. Я бы хотел, чтобы сначала отображались все столбцы, а затем можно было их поднастроить, отменив выбор столбцов из checkboxGroupInput,

Когда я запускаю код, тепловая карта не появляется. Я попытался устранить неполадки, посмотрев на df_select dataframe, но он имеет столбец "mpg" только тогда, когда он должен иметь их все (mpg:carb) изначально. В том числе View(df_select) выдает ошибку, поэтому она закомментирована ниже.

Любая помощь будет принята с благодарностью.

app.R

library(ggplot2)
library(d3heatmap)
library(dplyr)
library(shiny)

## ui.R
ui <- fluidPage(
  sidebarPanel(
    h5(strong("Dendrogram:")),
    checkboxInput("cluster_row", "Cluster Rows", value=FALSE),
    checkboxInput("cluster_col", "Cluster Columns", value=FALSE),
    checkboxGroupInput("col_list", "Select col to include:", names(mtcars), selected=names(mtcars)),
    h5(strong("Sort:")),
    checkboxInput("check_sort", "Sort (Yes/No)", value=FALSE),
    selectInput("sort", "Sort:", names(mtcars), selected="mpg")
  ),
  mainPanel(
    h4("Heatmap"),
    d3heatmapOutput("heatmap", width = "100%", height="600px")
  )
)

## server.R
server <- function(input, output) {

  df_select <- reactive({
    all <- names(mtcars)
    print(all) #debug
    selection <- input$col_list
    print(selection) #debug
    if("All" %in% input$col_list || length(input$col_list) == 0){
      selection <- all
    }else{
      selection <- input$col_list
    }
    df_select <- select_(mtcars, selection)
    #View(df_select) #debug
  })

  df_sort <- reactive({
    df_sort <- if(input$check_sort==FALSE) df_select() else arrange_(df_select(), input$sort)
  })

  output$heatmap <- renderD3heatmap({
    d3heatmap(df_sort(),
      colors = "Blues",
      if (input$cluster_row) RowV = TRUE else FALSE,
      if (input$cluster_col) ColV = TRUE else FALSE,
      yaxis_font_size = "7px"
    ) 
  })
}

shinyApp(ui = ui, server = server)

Answer 1

Это стандартная проблема оценки. использование select_(mtcars, .dots=selection) (строка № 38).