Sehr neu in R und haben begonnen, das Paket "tidytext" zu verwenden.

Ich versuche, Argumente zu verwenden, um in die @ einzugebunnest_tokens Funktion, damit ich mehrere Spalten analysieren kann. Also stattdessen

library(janeaustenr)
library(tidytext)
library(dplyr)
library(stringr)

original_books <- austen_books() %>%
  group_by(book) %>%
  mutate(linenumber = row_number(),
         chapter = cumsum(str_detect(text, regex("^chapter [\\divxlc]",
                                                 ignore_case = TRUE)))) %>%
  ungroup()

original_books

tidy_books <- original_books %>%
              unnest_tokens(word, text)

Die letzte Codezeile wäre:

output<- 'word'
input<- 'text'

tidy_books <- original_books %>%
              unnest_tokens(output, input)

Aber ich bekomme das:

Error in check_input (x): Die Eingabe muss ein beliebig langer Zeichenvektor oder eine Liste von Zeichenvektoren sein, von denen jeder eine Länge von 1 hat.

Ich habe versucht mitas.character() ohne viel Glück.

Wie würde das funktionieren?