r 从txt文件中读取带引号的一行
r read a line with quotation marks from a txt file
这可能很简单,但我遇到了问题。
我想读取一个长 .txt 文件的第一行,该行是这样的(但更长):
"15075060" "15085030" "15085040"
并且我想将每个元素作为对象保存在向量 p 中,因此向量 p 应该是:
> p
[1] "15075060" "15085030" "15085040"
我使用下一个代码:
setwd("location of the file")
fileName="name of the file"
con=file(fileName,open="r")
line=readLines(con)
txt = line[[1]]
newTxt <- unlist(strsplit(txt, split = " "))
nvar = length(newTxt)
for (i in 1:nvar){
p[i]=newTxt[i]
}
我得到的是:
> p
[1] "\"" "15075060\"" "\"" "15085030\"" "\"" "15085040\""
一定有一个非常简单的方法来做到这一点,但我不知道
read.table("mytxtfile.txt", nrows = 1)
这可能很简单,但我遇到了问题。 我想读取一个长 .txt 文件的第一行,该行是这样的(但更长):
"15075060" "15085030" "15085040"
并且我想将每个元素作为对象保存在向量 p 中,因此向量 p 应该是:
> p
[1] "15075060" "15085030" "15085040"
我使用下一个代码:
setwd("location of the file")
fileName="name of the file"
con=file(fileName,open="r")
line=readLines(con)
txt = line[[1]]
newTxt <- unlist(strsplit(txt, split = " "))
nvar = length(newTxt)
for (i in 1:nvar){
p[i]=newTxt[i]
}
我得到的是:
> p
[1] "\"" "15075060\"" "\"" "15085030\"" "\"" "15085040\""
一定有一个非常简单的方法来做到这一点,但我不知道
read.table("mytxtfile.txt", nrows = 1)