Пользовательские функции в `tm_map` из пакета` tm` - PullRequest
Новая
       13

Пользовательские функции в `tm_map` из пакета` tm`

0 голосов
/ 21 апреля 2019

Я пытаюсь добавить пользовательские функции в функцию tm_map пакета tm, однако она преобразует данные в другой формат, откуда я не могу продолжить.

Например, я использую 

library(tm)
library(qdapRegex)

docs <- data.frame(doc_id = c("doc_1", "doc_2"),
                   text = c("This is a text. With some more text, www.yahoo.com", "This another one. with some different text www.google.com"),
                   dmeta1 = 1:2, dmeta2 = letters[1:2],
                   stringsAsFactors = FALSE)

docs = VCorpus(DataframeSource(docs))

content(docs[[1]])

docs <- tm_map(docs, content_transformer(tolower)) # This Works fine
content(docs[[1]])

nchar_rm <- function(x){
  gsub(" *\\b[[:alpha:]]{1,2}\\b *", " ", x)
} # Custom function to remove characters less than 2

docs <- tm_map(docs, nchar_rm) # implement custom function
content(docs[[1]]) # returns an error.

Ошибка: 

Error in UseMethod("content", x) : 
  no applicable method for 'content' applied to an object of class "character"

Также с функцией docs <- tm_map(docs, rm_url) использование rm_url из пакета qdapRegex возвращает ошибку.

1 Ответ

2 голосов
/ 21 апреля 2019

Используйте content_transformer таким же образом 

library(tm)

docs <- tm_map(docs, content_transformer(nchar_rm)) 
content(docs[[1]])
#[1] "This  text. With some more text, www.yahoo.com"

Он также будет работать с rm_url

library(qdapRegex)

docs <- tm_map(docs, content_transformer(rm_url))
content(docs[[1]])
#[1] "This is a text. With some more text,"

Однако вы можете знать, что вы можете сделать этобез использования функции tm при использовании lapply / sapply / map и т. д. 

lapply(docs$text, rm_url)
lapply(docs$text, nchar_rm)
...