r - 粘贴到一个新的字符串 var，但被 Lavaan 的新行折叠

Question

我有一个大型 SEM，正在使用 Lavaan 软件包。由于它很大，我使用循环来生成方程式。然而，似乎有必要将方程式作为字符串输入，其中每个方程式都是一个新行。例如:

model <- '
    F1_all =~ target 
    F2_all =~ target 
    F3_all =~ target
'

简单地用空格分隔会导致错误:“~targetF3_all = ~target 中的错误:未找到对象‘targetF3_all’”

我的问题是我需要能够通过按换行符粘贴和折叠来创建字符串，因此 cat() 不是一个选项。

有什么想法吗？

Answer 1

您可以在 paste 中使用 collapse= 参数:

model = paste(c('F1_all =~ target', 'F2_all =~ target', 'F3_all =~ target'), 
              collapse = '\n')
# [1] "F1_all =~ target\nF2_all =~ target\nF3_all =~ target"