以字符串形式返回.R脚本中的文本

Question

这可能是一个奇怪的请求，实际上我无法做一个例子。虽然我会尽力。假设我有一个R脚本，例如一个看起来像这样的简单脚本：

library(lubridate)
setwd("")
df=read.csv("...")
df=df[df$month != "" & !is.na(df$month),]
colnames(df)[3]="metric"

现在有没有办法返回包含脚本中实际文本的字符串？或者以一种创造性的方式保存信息并将其读回到环境中。例如，我想创建一个等于以下内容的字符串变量：

"
library(lubridate)
setwd("")
df=read.csv("...")
df=df[df$month != "" & !is.na(df$month),]
colnames(df)[3]="metric""

Answer 1

这只需要快速的Google搜索。

• how to replace single backslash in R
• Which function should I use to read unstructured text file into R?

假设您有一个名为test.txt的文本文件

tt <- readLines("test.txt")
gsub("\\\"","\'",tt)

结果：

> gsub("\\\"","\'",tt)
[1] "'"                                        
[2] "library(lubridate)"                       
[3] "setwd('')"                                
[4] "df=read.csv('...')"                       
[5] "df=df[df$month != '' & !is.na(df$month),]"
[6] "colnames(df)[3]='metric'"

但是...

• 我将“”更改为“ ...例如查看setwd
• 我会小心gsub部分。我的意思是你必须 知道您的文本文件包含什么。如果文本文件包含返回 斜杠：“ \\ path \\ to \\ file”，则代码将失败