我想将一个列表作为单个字符串输出到 Excel 文件中。
我从一个字符列表开始。
url="http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=pubmed&id=21558518&retmode=xml"
xml = xmlTreeParse(url,useInternal = T)
ns <- getNodeSet(xml, '//PublicationTypeList/PublicationType')
types <- sapply(ns, function(x) { xmlValue(x) } )
types
输出是这样的:
[1] "Journal Article" "Multicenter Study" "Research Support, N.I.H., Extramural"
[4] "Research Support, Non-U.S. Gov't"
所以在类型中 - 有一个字符列表
现在我需要制作成一个字符串。
这是我到目前为止所拥有的,但它不是最佳的:
types_as_string = as.character(types[[1]])
if (length(types) > 1) for (j in 2:length(types)) types_as_string = paste(types_as_string,"| ",as.character(types[[j]]),sep="")
types_as_string
[1] "Journal Article| Multicenter Study| Research Support, N.I.H., Extramural| Research Support, Non-U.S. Gov't"
所以我想最终得到一个由管道或其他分隔符分隔的漂亮字符串。 (最后一个代码部分 - 是我想重写的)。管道很重要,必须妥善处理。