使用'else'语句进行deparse（）

Question

我正在尝试编写一个闪亮的应用程序，该应用程序可以打印我的功能代码并将其保存为.R文件，我可以运行该文件以获取所需的输出。

为了获得功能代码，我使用了deparse 。 直到最近，我的功能之一就是if else语句时，它才开始工作。 deparse倾向于将else和}分开，因此如果我在.R文件中运行代码，则会生成错误：

Error: unexpected 'else' in "else"

有没有解决此问题的方法？

我的示例代码如下：

 MyFunction <- function(dat){
    if(any(dat == 1)){
      print("1 is observed")
    }else{
      print("1 is not present")
    }

  }

  func.string <- deparse(MyFunction)
  codeOfInterest <-func.string[3:8] 
  write(codeOfInterest, "Code.R")

Answer 1

你可以用

func.string <- capture.output(print(MyFunction))

这是我在docstring软件包中采用的方法，用于收集源代码以能够检测和提取任何文档注释。