as.character（parse（text =“\”A \“”））并保留文字引号（仅限基数R）

Question

我想快速整理R代码并保留任何文字引号（如果存在）。我尝试as.character(parse(text = " \"A\" # remove this comment"))，但返回"A"，而不是所需的"\"A\""。我知道formatR::tidy_source()，但我想知道基础R中是否有一个光滑的解决方案。