如何删除闪亮的无功输入中的警告

Question

谁能告诉我为什么在第一个selectInput小部件中更改数据集时会出错？ 当我将数据集从diamonds更改为mtcars我得到一个错误：仅在1秒钟mtcars input$bins和绘图中Could not find 'carat' ，然后一切正常。 为什么会这样？

library(shiny)
library(ggplot2)

data(diamonds)
data(mtcars)


ui <- fluidPage(
      column(3,
             selectInput("data", "", choices = c('mtcars', 'diamonds')),
             uiOutput('server_cols'),
             uiOutput('server_bins')
             ),
      column(9,
             plotOutput("plot")
             )


)

server <- function(input, output) {

      data <- reactive({
            switch(input$data,
                   diamonds = diamonds,
                   mtcars = mtcars)
      })

      output$server_cols <- renderUI({
            data <- data()
            nam <- colnames(data)
            selectInput('cols', "Choose numeric columns:", choices = nam[sapply(data, function(x) is.numeric(x))])
      })

      output$server_bins <- renderUI({
            if (!is.null(input$cols)) {
                  df <- data()
                  x <- eval(input$cols)
                  max_value <- max(df[,x])

                  sliderInput('bins','Choose number of bins:', min = 0.1, 
                              max = max_value, 
                              value = max_value/2) 
            }
      })

      output$plot <- renderPlot({
            if (!is.null(input$cols) & !is.null(input$bins)) {
                  basicData <- data()
                  var <- eval(input$cols)

                  ggplot(basicData, aes_string(var)) +
                              geom_histogram(binwidth = input$bins, color = 'white', fill = 'red')
            }    

      })

}

shinyApp(ui, server)

Answer 1

您各自的输出对象会响应您输入变量的任何更改。 因此，当您通过input$data更改数据集时，尽管input$cols尚未调整，但图会自行重建。 实际上，尝试将一些print("a")插入到output$plot内，以查看如果更改input$data最多可以调用三次。

解决方法是重新考虑您的反应逻辑，让您的元素仅响应特定的更改，以获得某种响应“线程”。

例如， input$data应该只触发output$server_cols 。 并且output$server_bins仅应由input$cols触发（因为这已经暗示了input$data之前已更改）。 最终， output$plot仅需侦听input$bins更改（因为input$cols和input$data更改始终会导致input$bins更改，因为它位于线程末尾）。

这是我使用isolate建议。

library(shiny)
library(ggplot2)

data(diamonds)
data(mtcars)


ui <- fluidPage(
  column(3,
    selectInput("data", "", choices = c('mtcars', 'diamonds')),
    uiOutput('server_cols'),
    uiOutput('server_bins')
   ),
   column(9,
     plotOutput("plot")
   )    
)

server <- function(input, output) {

  data <- reactive({
    switch(input$data, diamonds = diamonds, mtcars = mtcars)
  })

  output$server_cols <- renderUI({
    data <- data()
    nam <- colnames(data)
    selectInput('cols', "Choose numeric columns:", choices = nam[sapply(data, function(x) is.numeric(x))])
  })

  output$server_bins <- renderUI({
    if (!is.null(input$cols)) {
      df <- isolate(data())
      x <- eval(input$cols)
      max_value <- max(df[,x])

      sliderInput('bins','Choose number of bins:', min = 0.1, max = max_value, value = max_value/2) 
    }
  })

  output$plot <- renderPlot({
    if (!is.null(isolate(input$cols)) & !is.null(input$bins)) {
      basicData <- isolate(data())
      var <- eval(isolate(input$cols))

      ggplot(basicData, aes_string(var)) +
        geom_histogram(binwidth = input$bins, color = 'white', fill = 'red')
    }    
  })    
}

shinyApp(ui, server)

如果要根据其他输入更改输入元素，则可能还需要查看updateSelectInput和updateSliderInput 。