r闪亮错误：类型为'；闭包'；的对象不可子集 [英] R shiny ERROR: object of type 'closure' is not subsettable
本文介绍了r闪亮错误：类型为'；闭包'；的对象不可子集的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
我正在使用以下代码，并且我总是得到this subsettable错误。 我细分了什么，我哪里错了。 这应该是我修改过的一些基本入口码 在某个时候工作，我看不到错误。
谢谢
server.R
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
})
})
ui.R
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时，它就会中断？ 如果"data"是一个内置函数，是否也会与下面的示例发生冲突？ 很抱歉没有理解，但这让我很困惑。
server.R
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处于不同的环境中，而且各个功能体都有自己的环境。因此fluidRow(...)中的data不引用output$table中的data。您需要传递参数和/或使用相应的函数动态构造UI。请参见示例here。
更新问题：
将data替换为ui.R中的mpg可以修复问题，因为mpg被定义为全局环境中的数据集(这是library(ggplot2)的副作用)。因此mpg(几乎)总是可访问的，并且具有必要的属性。若要进行更公平的比较，请将ui.R中的mpg替换为data，这应该会带回旧问题，因为全局环境中的data引用的是函数，而不是您尝试操作的数据框。
超级更新，为每个数据集动态定义和加载选择元素提供更通用的解决方案：
服务器代码遍历所选数据帧的所有列，并为类型不是DOUBLE的每一列动态生成一个选择框。(双打的独特性和平等性只会自找麻烦。)这避免了作用域问题，因为UI元素是在调用加载数据的反应函数之后在server.R中创建的。
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
})
})
ui.R
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闪亮错误：类型为'；闭包'；的对象不可子集的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
