使用'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軟件包中采用的方法，用於收集源代碼以能夠檢測和提取任何文檔注釋。