替换 r 文件中的第 n 行

Question

这是如何替换txt文件中的第三行。您如何在 R 文件中执行此操作？

> latin = readLines("junk.txt",-1)
> latin[3]="per ardua ad astra"
> writeLines(latin,"junk.txt")

这是一个 R 文件的例子。

fxGetRate <- function(s,c) {
  x <- s*c
  return(x)
  
}

# s <- 10
# c <- 50
# fxGetRate(s,c)

我可能想将第 2 行更改为

x <- s + c 

这是对更大的 R 文件的假设。提前致谢。

latin = readLines("C:/Users/xxx/Documents/r/x/lib.R",-1) #error on this line
latin[2]="x <- s + c"
writeLines(latin,"C:/Users/xxx/Documents/r/x/lib.R")

这是错误。

Warning message:
In readLines("C:/Users/xxx/Documents/r/x/lib.R", -1) :
  incomplete final line found on 'C:/Users/xxx/Documents/r/x/lib.R'

Answer 1

当我打开文件时代码有效。该错误只是一个警告。谢谢两位！