查找rscript文件中的函数是否由rmarkdown或rscript调用

Question

我在Rscript (这是在我自己的r包中)中有一个函数，它由.R(Rscript)文件或.Rmd(rmarkdown)调用。我需要在这个函数中创建一个if语句来执行一些事情，这取决于函数是由Rscript还是Rmarkdown调用的。

Answer 1

在我的例子中，以下内容解决了这个问题

获取文件路径，其中还包括文件名和扩展名：

file_type <- try(rstudioapi::getSourceEditorContext()$path, silent = T) 

文件扩展名。

file_type <- tools::file_ext(file_type)

当且仅当file_type = 'R'函数是打开的，对于任何其他情况，它们都是关闭的。

if(file_type == 'R'){
    ...
  }

在这种特殊情况下，我只关心扩展是'.R‘，不想冒险使用其他任何功能。例如，如果您在控制台中运行该函数，那么file_type = ''和函数将关闭。