r - Shiny :updateSelectizeInput引发错误“$运算符对原子向量无效”

我是新来的有光泽的人，很难解决这个问题。我试图在我的selectizeInput中创建一个“全选”按钮，但是在将输入从selectizeInput传递到updateSelectizeInput时遇到错误。有人可以帮我解决这个问题。

当我从输入框中选择“全选”时，应用程序关闭并显示错误：“ $运算符对原子向量无效”

我在输入字段（selectizeInput（））中添加了“全选”。当用户单击“全选”时，updateSelectizeInput（）在输入中的所有名称和“全选”之间添加设置差异，并用所有值填充过滤器框。

脚本的数据：https://drive.google.com/file/d/0B_sB3ef_9RntOWJjNlhrUjk3a1k/view

这是我的剧本

用户界面

library(shiny)
shinyUI(fluidPage(
  navbarPage(
    "Tab_name",
    tabPanel("Engine",
             bootstrapPage(
               div(style="display:inline-block", fileInput("file_attr", "attributes:")),
               uiOutput("CountryList")
             )
    )
  )
))

服务器

library(shiny)
shinyServer(function(input, output) {
  data_attr <- reactive({
      file1 <- input$file_attr
      if(is.null(file1)){return()}
      read.table(file=file1$datapath, sep=",", header = TRUE, stringsAsFactors = FALSE)
    })

    countries <- reactive({
      if(is.null(data_attr()$Country)){return()}
      data_attr()$Country
    })

    observeEvent(input$file_attr, {
      output$CountryList <- renderUI({
        if(is.null(data_attr()$Country)){return()}
        selectizeInput('show_vars', 'Country Filter', choices = c("Select All",unique(countries())), multiple = TRUE)
      })
    })

    observe({
      if ("Select All" %in% input$show_vars){
        selected_choices <- setdiff(c("Select All",unique(countries())), "Select All")
        updateSelectizeInput('show_vars', 'Country Filter', selected = selected_choices)

      }

    })

  })

当我们从用户界面的输入字段中选择“全选”时，就会出现错误

Warning: Error in $: $ operator is invalid for atomic vectors
Stack trace (innermost first):
    58: updateSelectInput
    57: updateSelectizeInput
    56: observerFunc [C:\Users\naresh.ambati\Documents\dummt/server.R#30]
     1: runApp
ERROR: [on_request_read] connection reset by peer

谢谢！

最佳答案

该错误是因为您将要传递给更新updateSelectizeInput的参数不正确。您需要将session对象作为第一个参数传递。在您的情况下，应该是这样的：

updateSelectizeInput(session,'show_vars', 'Country Filter', selected = selected_choices)

在定义服务器功能时，您需要按以下方式传递session对象：

shinyServer(function(input, output, session) {

.......

}

希望能帮助到你！

关于r - Shiny :updateSelectizeInput引发错误“$运算符对原子向量无效”，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/42740175/