as.character(解析(text=";A\";)并保留文字引号(仅以R为底)

as.character(解析(text=";A\";)并保留文字引号(仅以R为底),r,R,我想快速整理R代码并保留任何文字引号(如果存在)。我尝试将作为.character(解析(text=“\'A\”\35;删除此注释”),但返回的是“A”,而不是所需的“\'A\”。我知道formator::tidy_source(),但我想知道在base R中是否有一个巧妙的解决方案。试试x这是一个非常简单的例子,但在实际用例中,文本/代码是任意的,我无法控制它的引用方式。粘贴(扫描(text=“\”a\”\35;删除此注释“,what=character(),comment.char='#',

我想快速整理R代码并保留任何文字引号(如果存在)。我尝试将
作为.character(解析(text=“\'A\”\35;删除此注释”)
,但返回的是
“A”
,而不是所需的
“\'A\”
。我知道
formator::tidy_source()
,但我想知道在base R中是否有一个巧妙的解决方案。

试试
x这是一个非常简单的例子,但在实际用例中,文本/代码是任意的,我无法控制它的引用方式。
粘贴(扫描(text=“\”a\”\35;删除此注释“,what=character(),comment.char='#',quote=NULL),collapse='')
x