R Shiny 错误 : object of type 'closure' is not subsettable

This question already has answers here:

Error in <my code> : object of type 'closure' is not subsettable

(6 个回答)

6年前关闭。

我正在使用以下代码，我总是收到此子集错误。
我是什么子集，我错在哪里。
这应该是我修改过的一些基本入口代码
在某些时候工作，我看不到错误。

谢谢

服务器

library(shiny)

# Define a server for the Shiny app
shinyServer(function(input, output) {

  # Filter data based on selections
  output$table <- renderDataTable({
    data <- read.table("my.csv", sep =',', header =TRUE)
    if (input$shortdesc != "All"){
      data <- data[data$ShortDescription == input$shortdesc,]
    }
    if (input$taken != "All"){
      data <- data[data$Taken == input$taken,]
    }
    if (input$location != "All"){
      data <- data[data$Location == input$location,]
    }
    data
  })

})

用户界面

library(shiny)
# Define the overall UI

shinyUI(
  fluidPage(
    titlePanel("My Items"),

    # Create a new Row in the UI for selectInputs
    fluidRow(
      column(4, 
             selectInput("man", 
                         "What:", 
                         c("All", 
                           unique(as.character(data$ShortDescription))))
      ),
      column(4, 
             selectInput("trans", 
                         "Where:", 
                         c("All", 
                           unique(as.character(data$Location))))
      ),
      column(4, 
             selectInput("cyl", 
                         "Who:", 
                         c("All", 
                           unique(as.character(data$Taken))))
      )        
    ),
    # Create a new row for the table.
    fluidRow(
      dataTableOutput(outputId="table")
    )    
  )  
)

更新:

为什么示例(见下文)有效，而当我将其更改为 my.csv 时它会中断？
如果“数据”是一个内置函数，它不会与下面的示例发生冲突吗？
抱歉我不明白，但这让我很困惑。

服务器

library(shiny)

# Load the ggplot2 package which provides
# the 'mpg' dataset.
library(ggplot2)

# Define a server for the Shiny app
shinyServer(function(input, output) {

  # Filter data based on selections
  output$table <- renderDataTable({
    data <- mpg
    if (input$man != "All"){
      data <- data[data$manufacturer == input$man,]
    }
    if (input$cyl != "All"){
      data <- data[data$cyl == input$cyl,]
    }
    if (input$trans != "All"){
      data <- data[data$trans == input$trans,]
    }
    data
  })

})

ui.r.

library(shiny)

# Load the ggplot2 package which provides
# the 'mpg' dataset.
library(ggplot2)

# Define the overall UI
shinyUI(
  fluidPage(
    titlePanel("Basic DataTable"),

    # Create a new Row in the UI for selectInputs
    fluidRow(
      column(4, 
          selectInput("man", 
                      "Manufacturer:", 
                      c("All", 
                        unique(as.character(mpg$manufacturer))))
      ),
      column(4, 
          selectInput("trans", 
                      "Transmission:", 
                      c("All", 
                        unique(as.character(mpg$trans))))
      ),
      column(4, 
          selectInput("cyl", 
                      "Cylinders:", 
                      c("All", 
                        unique(as.character(mpg$cyl))))
      )        
    ),
    # Create a new row for the table.
    fluidRow(
      dataTableOutput(outputId="table")
    )    
  )  
)

最佳答案

扩展@Roland 的评论:您发生了命名空间冲突。基R中有一个函数data，所以如果R在当前环境中找不到对象data，则从全局环境中引用该函数data。在您的特定情况下，发生这种情况是因为 ui.R 和 server.R 处于不同的环境中，而且各个函数体都有自己的环境。所以 data 中的 fluidRow(...) 没有引用 data 中的 output$table 。您需要传递参数和/或使用函数动态构建 UI。参见例如 here 。

更新问题的更新:

将 data 替换为 mpg 中的 ui.R 可以解决问题，因为 mpg 被定义为全局环境中的数据集(这是 library(ggplot2) 的副作用)。因此 mpg(几乎)始终可以访问并具有必要的属性。为了更公平的比较，将 mpg 中的 ui.R 替换为 data ，这应该会带回旧问题，因为全局环境中的 data 指的是一个函数，而不是您试图操作的数据帧。

super 更新，使用更通用的解决方案为每个数据集动态定义和加载选择元素:

服务器代码遍历所选数据帧的所有列，并为除 double 以外的每一列动态生成一个选择框。 (唯一性和 double 相等只是自找麻烦。)这避免了范围问题，因为 UI 元素是在调用加载数据的响应式(Reactive)函数后在 server.R 中创建的。

服务器

library(shiny)
library(ggplot2)
# Define a server for the Shiny app
shinyServer(function(input, output) {

  get.data <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars,
           "mpg" = mpg,
           "mtcars" = mtcars,
           "diamonds" = diamonds)
  })

  # Filter my.data based on selections
  output$table <- renderDataTable({
    my.data <- get.data()
    for(n in names(my.data)){
        # avoid too many cases ... 
        # unique() with double is just asking for trouble
        if(typeof(my.data[,n]) != "double"){ 
            val <- eval(parse(text=paste0("input$",n)))
            print(val)
            if(val != "All"){
                my.data <- eval(parse(text=paste0("subset(my.data,",n,"==",val,")")))
            }
        }
    }
    my.data
  })

  output$dyn.ui <- renderUI({
      my.data <- get.data()
      sel <- NULL
      for(n in names(my.data)){
          # avoid too many cases ... 
          # unique() with double is just asking for trouble
          if(typeof(my.data[,n]) != "double"){ 
              sel <- c(sel,
                   selectInput(n, n, choices=c("All",unique(my.data[,n])))
                   )
          }
      }
      sel
  })

})

用户界面

library(shiny)

# Define the overall UI

shinyUI(fluidPage(
    titlePanel("Displaying tables dynamically with renderUI() and eval()"),

    sidebarLayout(
        sidebarPanel(h2("Selection"),
                     selectInput("dataset", "Dataset", c("rock", "pressure", "cars","mtcars","diamonds")),
                     # Create a new Row in the UI for selectInputs
                     uiOutput("dyn.ui")

        )
        ,mainPanel(h2("Data"),
           dataTableOutput(outputId="table")       
        )
    )


))

关于R Shiny 错误 : object of type 'closure' is not subsettable，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/24240434/

上一篇：scala - 从辅助构造函数初始化 val

下一篇：ssis - 我可以在记事本中编辑 SSIS 包文件并使用它吗？

相关文章：

r - 计算模式并区分它们

r - 如果语句在 Shiny 中不起作用

r - 对所有数据进行子集化，每个数据都有以下不同的数字

r - 显示包含值的矩阵作为热图

javascript - 是什么导致 Shiny 的应用程序在 Chrome 中卡住但在 Safari 中不卡住？

r - DT Shiny中的复选框

r - 错误 : argument "mainPanel" is missing, 无默认值

r - 在 shiny 上具有不同输出的选项卡之间共享一些 ui

从字符串中删除最后出现的数字

r - 在 R 中的 ggplot2 中外推散点图的线性拟合