不明白 Cannot Coerce type 'closure' 错误-解网

问：

我看到这是一个常见问题，但我无法通过阅读其他帖子或尝试理解对我来说是新的函数式编程来理解该怎么做。函数是 R 中的闭包，封装了它们创建的环境？我的代码是：

# Remove numbers from text
minus_TextNum <- function(df, new.df){
  new.df <- mutate(df, text = gsub(x = text, pattern = "[0-9]+|\\(.*\\)", replacement = "")) %>%  # and/or whatever's in brackets
    unnest_tokens(input = text, output = word) %>% 
    filter(!word %in% c(stop_words$word, "patient")) %>% 
    group_by(id) %>% 
    summarise(text = paste(word, collapse = " "))
  return(new.df)
}

minus_TextNum(TidySymptoms)

错误如下：

错误：列 . 有问题我。X 不能胁迫将“closure”类型为“character”类型的向量mutate()texttext = gsub(x = text, pattern = "[0-9]+|\\(.*\\)", replacement = "")

我不明白什么是类型闭包，这是一个简单的函数，适用于我创建用于测试的简单数据集。当我使用真实世界的数据集时出现问题。

任何反馈都值得赞赏。可重复的样品如下：

# Remove numbers and/or anything in brackets

# Test Data
mydata <- data.frame(id = 1:8,
                     text = c("112773 Nissan Micra, Car, (10 pcs)",
                              "112774 Nissan Micra, Car, (10 pcs)",
                              "112775 Nissan Micra, Car, (10 pcs)",
                              "112776 Volkswagon Beetle, Car, (3 pcs)",
                              "112777 Toyota Corolla, Car, (12 pcs)",
                              "112778 Nissan Micra, Car, (10 pcs)",
                              "112779 Toyota Prius, Car, (9 pcs)",
                              "112780 Toyota Corolla, Car, (12 pcs)"),
                     stringsAsFactors = F)

library(dplyr)
library(tidytext)

# remove numbers from text data
data(stop_words)
minus_TextNum <- function(df, new.df){
  new.df <- mutate(df, text = gsub(x = text, pattern = "[0-9]+|\\(.*\\)", replacement = "")) %>%  # and/or whatevers in brackets
    unnest_tokens(input = text, output = word) %>% 
    filter(!word %in% c(stop_words$word, "car")) %>% 
    group_by(id) %>% 
    summarise(text = paste(word, collapse = " "))
  return(new.df)
}


minus_TextNum(mydata)

dput（head（TidySymptoms， n = 10）） structure（list（word = c（“会厌”， “肿胀”， “阻碍”， “吞咽”， “图片”、“苯那君”、“泰诺”、“大约”、“30”、“分钟” ））， row.names = c（NA， 10L）， class = “data.frame”）

R 函数编程闭包

minus_TextNum <- function(df){

  df.new <- mutate(df, text = gsub(x = word, pattern = "[0-9]+|\\(.*\\)", replacement = "")) %>%  
    unnest_tokens(input = text, output = word) %>% 
    filter(!word %in% c(stop_words$word, "patient")) %>% 
    group_by(id) %>% 
    summarise(text = paste(word, collapse = " "))
    return(new.df)
}

minus_TextNum(TidySymptoms)

上一个：foldTree 分步评估

下一个：python 闭包何时进行捕获？

不明白 Cannot Coerce type 'closure' 错误

Don't understand Cannot Coerce type 'closure' Error

评论