我得到＆＃34;无效＆＃39; envir＆＃39;类型＆＃39;封闭＆＃39;＆＃34;在R闪亮的仪表板中的地块的位置。无法弄清楚错误。我正在尝试根据邮政编码的选择对数据进行子集化。如果有人能帮到这里会很棒
library(shiny)
library(shinydashboard)
library(dplyr)
varsfilter = unique(final_kings_house_data$zipcode)
vars = unique(final_kings_house_data$zipcode)
if (interactive()) {
header <- dashboardHeader(title = "Kings County Housing Data")
sidebar <- dashboardSidebar(
sidebarSearchForm(label = "Enter a number", "searchText", "searchButton"),
sidebarMenu(
id = "tabs",
menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
menuItem("Widgets", icon = icon("th"), tabName = "widgets", badgeLabel = "new",
badgeColor = "green"),
menuItem("Charts", icon = icon("bar-chart-o"),
menuSubItem("Trend Chart", tabName = "subitem1"),
menuSubItem("Scatter Plot", tabName = "subitem2")),
selectInput("filtervar", "Select zipcode", choices = vars),
checkboxGroupInput("filteroptions", "Select zipcode", choices = varsfilter)))
body <- dashboardBody(
tabItems(
tabItem("subitem1", fluidRow(
tabsetPanel(id = "tabselected",
tabPanel("Visualization", uiOutput("Tab1")),
tabPanel("Summary", uiOutput("Tab2"))))),
tabItem("widgets",
"Widgets tab content"),
tabItem("dashboard",
"Welcome!"),
tabItem("subitem2", fluidRow(
tabsetPanel(id = "tabselected",
tabPanel("Visualization", uiOutput("Tab3")),
tabPanel("Summary", uiOutput("Tab4"))
))
)))
shinyApp(
ui = dashboardPage(header, sidebar, body),
server = function(input, output,session) {
kings_house_data = reactive({
a = subset(final_kings_house_data, final_kings_house_data$zipcode == input$vars)
return(a)
})
view_aggregate = reactive({kings_house_data() %>% group_by(view) %>% summarise(price = mean(price))})
condition_aggregate = reactive({kings_house_data() %>% group_by(condition) %>% summarise(price = mean(price))})
floors_aggregate = reactive({kings_house_data() %>% group_by(floors) %>% summarise(price = mean(price))})
month_aggregate = reactive({kings_house_data() %>% group_by(month) %>% summarise(price = mean(price))})
output$Tab1 = renderUI({
mainPanel(fluidRow(
column(6,plotOutput(outputId = "viewplot", width="300px",height="300px")),
column(6,plotOutput(outputId = "conditionplot", width="300px",height="300px"))),
fluidRow(
column(6,plotOutput(outputId = "floorsplot", width="300px",height="300px")),
column(6,plotOutput(outputId = "monthplot", width="300px",height="300px"))))
})
output$Tab3 = renderUI({
mainPanel(fluidRow(
column(6,plotOutput(outputId = "view_scatterplot", width="300px",height="300px")),
column(6,plotOutput(outputId = "condition_scatterplot", width="300px",height="300px"))),
fluidRow(
column(6,plotOutput(outputId = "floors_scatterplot", width="300px",height="300px")),
column(6,plotOutput(outputId = "month_scatterplot", width="300px",height="300px"))))
})
output$viewplot = renderPlot({ plot(price/1000 ~ view , data = view_aggregate,
title = "Avg Price Vs View", xlab = "View", ylab = "Avg Price in thousands", type = "o", col = "red")})
output$conditionplot = renderPlot({ plot(price/1000 ~ condition, data = condition_aggregate,
title = "Avg Price Vs Condition", xlab = "Condition", ylab = "Avg Price in thousands", type = "o", col = "red")})
output$floorsplot = renderPlot({ plot(price/1000 ~ floors, data = floors_aggregate,
title = "Avg Price Vs No. of Floors", xlab = "No. of Floors", ylab = "Avg Price in thousands", type = "o", col = "red")})
output$monthplot = renderPlot({ plot(price/1000 ~ month, data = month_aggregate,
title = "Avg Price Vs Month", xlab = "Month", ylab = "Avg Price in thousands", type = "o", col = "red")})
output$view_scatterplot = renderPlot({ plot(price/1000 ~ view , data = kings_house_data(),
title = "Price Vs View", xlab = "View", ylab = "Price in thousands", col = "red")})
output$condition_scatterplot = renderPlot({ plot(price/1000 ~ condition, data = kings_house_data(),
title = "Price Vs Condition", xlab = "Condition", ylab = "Price in thousands", col = "red")})
output$floors_scatterplot = renderPlot({ plot(price/1000 ~ floors, data = kings_house_data(),
title = "Price Vs No. of Floors", xlab = "No. of Floors", ylab = "Price in thousands", col = "red")})
output$month_scatterplot = renderPlot({ plot(price/1000 ~ month, data = kings_house_data(),
title = "Price Vs Month", xlab = "Month", ylab = "Price in thousands", col = "red")})
})
}
答案 0 :(得分：1)
嗨，这个错误（invalid 'envir' argument of type 'closure'）意味着在R中你已经给出了一个函数作为参数，当你真的想要函数的值时。在Shiny中，几乎总是忘记在被动状态之后添加括号()。在这种情况下，您已为kings_house_data正确完成了此操作但忘记了view_aggregate，condition_aggregate，floors_aggregate和month_aggregate
以下是代码的更正部分
output$viewplot = renderPlot({ plot(price/1000 ~ view , data = view_aggregate(),
title = "Avg Price Vs View", xlab = "View", ylab = "Avg Price in thousands", type = "o", col = "red")})
output$conditionplot = renderPlot({ plot(price/1000 ~ condition, data = condition_aggregate(),
title = "Avg Price Vs Condition", xlab = "Condition", ylab = "Avg Price in thousands", type = "o", col = "red")})
output$floorsplot = renderPlot({ plot(price/1000 ~ floors, data = floors_aggregate(),
title = "Avg Price Vs No. of Floors", xlab = "No. of Floors", ylab = "Avg Price in thousands", type = "o", col = "red")})
output$monthplot = renderPlot({ plot(price/1000 ~ month, data = month_aggregate(),
title = "Avg Price Vs Month", xlab = "Month", ylab = "Avg Price in thousands", type = "o", col = "red")})
output$view_scatterplot = renderPlot({ plot(price/1000 ~ view , data = kings_house_data(),
title = "Price Vs View", xlab = "View", ylab = "Price in thousands", col = "red")})
output$condition_scatterplot = renderPlot({ plot(price/1000 ~ condition, data = kings_house_data(),
title = "Price Vs Condition", xlab = "Condition", ylab = "Price in thousands", col = "red")})
output$floors_scatterplot = renderPlot({ plot(price/1000 ~ floors, data = kings_house_data(),
title = "Price Vs No. of Floors", xlab = "No. of Floors", ylab = "Price in thousands", col = "red")})
output$month_scatterplot = renderPlot({ plot(price/1000 ~ month, data = kings_house_data(),
title = "Price Vs Month", xlab = "Month", ylab = "Price in thousands", col = "red")})