Fatal编程技术网
  • r/
  • readline将电子表格中的每一条记录视为新行[R]

readline将电子表格中的每一条记录视为新行[R]

r

readline将电子表格中的每一条记录视为新行[R],r,readline,R,Readline,我试图创建一个函数，将使用TM软件包计算关键字的频率计数。如果从readline粘贴的文本位于自由格式文本上而没有新行，则该函数可以正常工作。问题是，当我粘贴从电子表格复制的一组文本时，readline会将其视为新行 keyword <- function() { x <- readline(as.character('Input text here: ')) x <- Corpus(VectorSource(x)) ... tdm <- TermDocumentMatr

我试图创建一个函数，将使用TM软件包计算关键字的频率计数。如果从readline粘贴的文本位于自由格式文本上而没有新行，则该函数可以正常工作。问题是，当我粘贴从电子表格复制的一组文本时，readline会将其视为新行

keyword <- function() {
x <- readline(as.character('Input text here: '))
x <- Corpus(VectorSource(x))
...
tdm <- TermDocumentMatrix(x)
...
tdm
}

关键字在使用
readline


x <- paste(readline(as.character('Input text here: ')), collapse=' ')



x如果我理解正确，问题是当用户粘贴来自另一个应用程序的文本时：换行符导致R停止接受后续行

一种技术（可能很脆弱）是查找特定行，例如空行
“
或句点
”
。它有点脆弱，因为现在您需要（1）确保数据“永远”不会包含整行数据，以及（2）用户可以很容易地追加数据

尝试：


endofinput这几乎可以工作，但它将while循环视为一个向量。是否尝试将
collapse=”“
添加到
粘贴
？

endofinput <- ""
totalstr <- ""
while(! endofinput == (x <- readline('prompt (empty string when done): ')))
    totalstr <- paste(totalstr, x)