在 R 中向文本文件添加新行

在本文中，我们将使用 R 编程语言在文本文件中添加一个新行。

它可以通过不同的方式完成：

• 使用 write()函数。
• 使用 lapply()函数。
• 使用 cat()函数。

方法 1：使用 write()函数添加文本。

现在我们要选择要添加到文本文件的行。

line <- "because it has perfect solutions"

最后，我们使用write()函数在文本文件中追加上述行。

write()函数有 3 个参数，第一个是我们要添加到文本文件中的行，该行存储在名为 line 的变量中第二个参数是文件名本身，通过此参数在我们的代码之间设置了连接和文本文件，最后一个是 append 命令，用于在文本文件中附加文本。所有这些事情都将被视为：

write(line,file="Text.txt",append=TRUE)

下面是实现：

R

# line which we need to be add
line = "because it has perfect solutions"
  
# write function to add the file
write(line, file = "Text.txt",
      append = TRUE, sep = "\n")

输出：

红色突出显示的行是附加的行。

注意：如果您设置 append = FALSE，则整个文本文件将被覆盖。

电阻

# line which we need to add on text file
line = "because it has perfect solutions"
  
# write function helps us to add text 
write(line, file = "Text.txt", append = FALSE)

输出：

方法 2：使用 lapply()函数添加文本。

lapply()函数使用向量将文本添加到文本文件中。因此，我们创建了一个我们想要添加到文本文件中的文本向量

a=c("also gfg has many approaches to solve a problem")

创建了一个矢量名称“a”，其中包含我们要添加到文本文件中的行。

现在我们将 lapply函数与 write() 和匿名函数。匿名函数用于将向量的每个字符作为参数，append 用于将文本附加到文本文件。

lapply(a, function(anyNameofVect){ write(anyNameofVect, file=”Text.txt”, sep=”\n”, append=TRUE, ncolumns=100000) })

下面是实现：

电阻

# vector of text
a = c("also gfg has many approaches to solve a problem")
  
# lapply function with anonymous function 
lapply(a, function(c){ write(c, file = "Text.txt", 
                             sep = "\n", append = TRUE,
                             ncolumns = 100000) })

输出：

方法 3：使用 cat()函数添加文本：

cat函数与 lapply 做了同样的事情。它获取文本并使用文件名建立与文本文件的连接，并使用 append 命令将文本附加到文本文件

电阻

# cat function to append the text to the text file
cat("That's why gfg make Data Structures easy",
    sep = "\n", file = "Text.txt", append = TRUE)

输出：