使用strsplit（）简化字符串的输入

我如何复制这一点：

x <- strsplit('
Statement A
Statement B
Statement C
', '\n')[[1]][-1]

---

x您可以做的一件事是使用
scan（）
：

您可以使用
…
符号和
匹配.call（）
将其作为字符来编写函数，但是当您使用不再有效的空格时（因为它们是无效的对象名称，您需要`符号。
可以做的一件事是使用
扫描（）
：

您可以使用
…
符号和
匹配.call（）
将其作为字符来编写函数，但是当您使用不再起作用的空格时（因为它们是无效的对象名称，您需要`符号。
取消列出

是否符合您的要求

someFunction <- function(txt) {
  unlist(strsplit(txt, "\n"))
}

#Dummy data
txt <- "Statement A
Statement B
Statement C"

> z <- someFunction(txt)
> all.equal(x,z)
[1] TRUE

---

someFunction是否
unlist
执行您想要的操作

someFunction <- function(txt) {
  unlist(strsplit(txt, "\n"))
}

#Dummy data
txt <- "Statement A
Statement B
Statement C"

> z <- someFunction(txt)
> all.equal(x,z)
[1] TRUE

someFunction仍然必须为此函数键入“”，但它看起来比我以前的好。仍然必须为此函数键入“”，但它看起来比我以前的好。第二个函数很接近，但您仍然必须键入“and”）（我必须这样做数百次）第二个函数很接近，但您仍然必须键入“and”）（我必须这样做数百次）你不能将它存储在外部文本文件中并使用
读线
？是的，我尝试过这个，但因为这些是“函数中的函数”它不能很好地工作。我需要它独立工作。你不能将它存储在外部文本文件中并使用
读线
？是的，我尝试过这个，但因为这些是“函数中的函数”，所以它不能很好地工作。我需要它独立工作。
spl <- function(x)
{
foo <- unlist(strsplit(x,'\n'))
foo[foo!=""]
}

spl('
Statement A
Statement B
Statement C
')
[1] "Statement A" "Statement B" "Statement C"

foo <- function(x)scan(what="character",sep="\n")

x <- foo()
Statement A
Statement B
Statement C

someFunction <- function(txt) {
  unlist(strsplit(txt, "\n"))
}

#Dummy data
txt <- "Statement A
Statement B
Statement C"

> z <- someFunction(txt)
> all.equal(x,z)
[1] TRUE