R Shiny 错误：警告：$ 中的错误：“闭包”类型的对象不可子集

分类：编程问答

如何解决R Shiny 错误：警告：$ 中的错误：“闭包”类型的对象不可子集

我正在使用以下代码，除非我运行该行，否则我总是会收到此子集错误

df <- read.csv("./world-happiness-report-cleaned.csv") 在运行应用程序之前手动。我是什么子集，我错在哪里？我似乎找不到错误，而且我对 Shiny 非常陌生，所以我以前从未处理过这个问题。非常感谢！！

此链接指向包含我使用的 csv 的文件箱：https://filebin.net/wjctohctz1sxm16y

server.R

# Elit Jasmine Dogu,ejd5mm
# Project One DS 3002
library(dplyr)
library(countrycode)
library(shiny)
df <- read.csv("./world-happiness-report-cleaned.csv")

    #saveRDS(df,"./df.RDS")
server <- function(input,output) {
    #reading in the data and basic data cleaning 
    #df<- read.csv("world-happiness-report-cleaned.csv")
    #df <<- readRDS("./df.RDS")
    #df <- read.csv("./world-happiness-report-cleaned.csv")
    
    # Filter data based on user selections
    output$table <- DT::renderDataTable(DT::datatable({
        data <- df %>%
            filter(
                if(input$year != "All") {
                    Year ==input$year
                } else {TRUE}
            ) %>%
            filter(
                if(input$country != "All") {
                    Country ==input$country
                } else {TRUE}
            ) %>%
            filter(
                if(input$continent != "All") {
                    Continent ==input$continent
                } else {TRUE}
            )
        
        return(data)
        
    }))
        # Generate a summary of the dataset (on the left panel)
        output$summary <- renderPrint({
            data <- df %>%
                filter(
                    if(input$year != "All") {
                        Year ==input$year
                    } else {TRUE}
                ) %>%
                filter(
                    if(input$country != "All") {
                        Country ==input$country
                    } else {TRUE}
                ) %>%
                filter(
                    if(input$continent != "All") {
                        Continent ==input$continent
                    } else {TRUE}
                )
            
            return(summary(data))
            
        })
    
       #Generate a function to show the number of rows w/ any given dataframe selection/restriction
    rows = function() {
        data <- df %>%
            filter(
                if(input$year != "All") {
                    Year ==input$year
                } else {TRUE}
            ) %>%
            filter(
                if(input$country != "All") {
                    Country ==input$country
                } else {TRUE}
            ) %>%
            filter(
                if(input$continent != "All") {
                    Continent ==input$continent
                } else {TRUE}
            )
        
        return(nrow(data)) #returns number of rows of the data
    }
    
    #Generate a function to show the number of columns w/ any given dataframe selection/restriction
    cols = function() {
        data <- df %>%
            filter(
                if(input$year != "All") {
                    Year ==input$year
                } else {TRUE}
            ) %>%
            filter(
                if(input$country != "All") {
                    Country ==input$country
                } else {TRUE}
            ) %>%
            filter(
                if(input$continent != "All") {
                    Continent ==input$continent
                } else {TRUE}
            )
        
        return(ncol(data)) #returns the number of columns of the data
    }

    #Using the functions created above
        output$columns  <- renderText({
            paste("Number of Columns:",cols() ) #text to display the number of columns
        })
        output$rows  <- renderText({
            paste("Number of Rows (Records):",rows() ) #text to display the number of rows 
        })

        output$data_ex  <- renderText({
            paste("Please see README.md file for information regarding the dataset.") #text to display where to find more information
        })
 

        # Downloadable csv of selected dataset 
        output$downloadData <- downloadHandler(
            filename = function() {
                selected <-c() #this assists with the name of the file
                if (input$year != "All") { 
                    selected <-c(selected,input$year)
                }
                if (input$country != "All") {
                    selected <-c(selected,input$country)
                }
                if (input$continent != "All") {
                    selected <-c(selected,input$continent)
                }
                if (length(selected) == 0) {
                    selected <- c("AllData")
                }
                
                paste0(paste(selected,collapse="-"),".csv")
            },content = function(con) {
                data <- df %>%
                    filter(
                        if(input$year != "All") {
                            Year ==input$year
                        } else {TRUE}
                    ) %>%
                    filter(
                        if(input$country != "All") {
                            Country ==input$country
                        } else {TRUE}
                    ) %>%
                    filter(
                        if(input$continent != "All") {
                            Continent ==input$continent
                        } else {TRUE}
                    )
                write.csv(data,con,row.names = TRUE) #saves the filtered data
            }
        )
}

ui.R

# Elit Jasmine Dogu,ejd5mm
# Project One DS 3002
library(shiny)
library(shinyWidgets)

ui <- fluidPage(
    #text with project name and my information
    titlePanel("World Happiness Report"),tags$h3("DS 3002- Project One"),tags$h4("Elit Dogu,ejd5mm 3rd Year UVA"),# use a gradient in background,setting background color to blue
    setBackgroundColor(  
        #https://rdrr.io/cran/shinyWidgets/man/setBackgroundColor.html used this website for help on background color
        color = c("#F7FBFF","#2171B5"),gradient = "radial",direction = c("top","left")
    ),# Sidebar layout with input and output definitions ----
    sidebarLayout(
        
        # Sidebar panel for inputs ----
        sidebarPanel(
            
            # Output: Header + summary of distribution ----
            h4("Summary"),verbatimTextOutput("summary"),# Download button
            downloadButton("downloadData","Download")
        ),# Create a new Row in the UI for selectInputs
    # Main panel for displaying outputs ----
    mainPanel(

    fluidRow(  #manipulates the original dataframe given user selection
        column(4,selectInput("year",#selection for the year variable
                           "Year:",c("All",unique(as.numeric(df$Year))))
        ),column(4,selectInput("country",#selection for the country variable
                           "Country:",unique(as.character(df$Country))))
        ),selectInput("continent",#selection for the continent variable
                           "Continent:",unique(as.character(df$Continent))))
        )
    ),# Create a new row for the table
    DT::dataTableOutput("table"),# Create a new column for the text to be displayed
    column(12,verbatimTextOutput("columns") #column to display col count
    ),column(12,verbatimTextOutput("rows") #column to display row count
    ),verbatimTextOutput("data_ex") #column to display more information text
            )
        )
    )
)

谢谢！！

解决方法

问题是您在 UI 中使用了 df$......。如果您在 df 函数内定义 server，它不会在 UI 中定义。所以你会得到这个错误，因为 R 将 df 识别为 'stats' 包提供的函数（“closure”类型的对象是一个函数）。

,

前期：StéphaneLaurent's answer 是您需要解决的第一件事。下面不会导致那个错误，但我仍然建议出于其他原因进行更改。

在您的 rows 和 cols 函数中，您直接访问 input$。这是错误的，至少有两个原因：

  1. （一般函数式编程）你的函数违反了作用域，触及了它们没有明确传递的东西。这可能与编程风格有关，但使用未显式传递给它的变量的函数可能难以排除故障。

  2. input$ 只能从 reactive*、observe* 或 render* 块（即闪亮反应）。除了这些之外的任何东西都不应尝试对 input$ 或 output$ 执行任何操作。

作为修复，通过使函数独立且仅工作标量/向量，使函数与闪亮无关。 （我也会稍微减少逻辑。）

  #Generate a function to show the number of rows w/ any given dataframe selection/restriction
  rows = function(year,country,continent) {
    data <- df %>%
      filter(
        year == "All" | year == Year,country == "All" | country == Country,continent == "All" | continent == Continent
      )
    return(nrow(data)) #returns number of rows of the data
  }

  # ...

  output$rows  <- renderText({
    paste("Number of Rows (Records):",rows(input$year,input$country,input$continent) )
  })

坦率地说，你的 cols 函数有点奇怪……你可以整天改变一个框架的行数，但列数不会改变。除非你 dplyr::select 几列，否则它应该总是正好 ncol(df)。

至于逻辑的简化，您在 if 链中嵌入的 dplyr::filter 语句没有错，但我认为更符合 R 习惯的方法是我所建议的。在您的情况下，如果变量是 "All"，则它返回单个 TRUE，dplyr::filter 适用于所有行。如果不是，则返回一个 logical 向量（每行 1），指示帧的变量是否与所选输入匹配。

在我的版本中，我做了一些非常相似的事情：第一个 year == "All" 仍将解析为单个逻辑（假设 year，来自 input$year），但右侧将与行数一样长。您可以测试一下：

TRUE | c(T,F,T,F)
# [1] TRUE TRUE TRUE TRUE
FALSE | c(T,F)
# [1]  TRUE FALSE  TRUE FALSE

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

导入项目后报错问题
依赖报错 idea导入项目后依赖报错，解决方案：https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错：更换其他版本 无法下载依赖可参考：https://blog.csdn.net/weixin_42628809/a
idea不能识别yaml文件
使用mybatis plus常见错误
错误1：代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
gradle常见问题与错误
错误1：gradle项目控制台输出为乱码 # 解决方案：https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
Mybatis Plus传入参数0不起作用
错误还原：在查询的过程中，传入的workType为0时，该条件不起作用 &lt;select id=&quot;xxx&quot;&gt; SELECT di.id, di.name, di.work_type, di.updated... &lt;where&gt; &lt;if test=&qu
linux中make编译源码包失败
报错如下，gcc版本太低 ^ server.c:5346:31: 错误：‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
微服务启动错误：Command line is too long. Shorten command line for
解决方案1 1、改项目中.idea/workspace.xml配置文件，增加dynamic.classpath参数 2、搜索PropertiesComponent，添加如下 &lt;property name=&quot;dynamic.classpath&quot; value=&quot;tru
vue常见错误
删除根组件app.vue中的默认代码后报错：Module Error (from ./node_modules/eslint-loader/index.js): 解决方案：关闭ESlint代码检测，在项目根目录创建vue.config.js，在文件中添加 module.exports = { lin
spark常见错误
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
matplotlib报错：AttributeError: module 'backend_interagg' has no attribute 'FigureCanvas'. Did you mean: 'FigureCanvasAgg'?
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams[&#39;font.sans-serif&#39;] = [&#39;SimHei&#39;] # 能正确显示负号 p
gitlab登录失败，报错：This challenge page was accidentally cached by an intermediary and is no longer available.
设置时间 控制面板
后端开发常见错误
错误1：Request method ‘DELETE‘ not supported 错误还原：controller层有一个接口，访问该接口时报错：Request method ‘DELETE‘ not supported 错误原因：没有接收到前端传入的参数，修改为如下 参考 错误2：cannot r
docker常见错误
错误1：启动docker镜像时报错：Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法：重启docker -&gt; systemctl r
idea常见错误
错误1：private field ‘xxx‘ is never assigned 按Altʾnter快捷键，选择第2项 参考：https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2：启动时报错，不能找到主启动类 #
pip安装依赖失败
报错如下，通过源不能下载，最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
maven常见错误
错误1：maven打包报错 错误还原：使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
cloud项目中常见错误
错误1：服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping(&quot;/hires&quot;) public class FeignControl
springboot常见错误
错误1：运行项目后报如下错误 解决方案 报错2：Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案：在pom.
springmvc拦截器中使用redisTemplate报空指针异常
参考 错误原因 过滤器或拦截器在生效时，redisTemplate还没有注入 解决方案：在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate&lt;String
vite报错：npm ERR! command C:WINDOWSsystem32cmd.exe /d /s /c C:UsersychenAppDataLocalTempnpx-dde1c848.cmd
使用vite构建项目报错 C:\Users\ychen\work&gt;npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot