profvis() 何时以及为何显示“源不可用”？

我经常分析 R 代码，并大量使用 profvis()。

对于某些函数，浏览器窗口的上半部分会显示源代码，有时则不会。我不知道什么时候会出现这种情况，对我来说这似乎是随机的。

有谁知道 profvis 何时以及为什么无法在顶部窗口中显示代码？发生这种情况的一种情况是这段代码：

simulation <- function(p=1e4, n=100){
  df <- list()
  for(i in 1:p){  # simulate p columns of data
    df[[paste0("Var", i)]] <- rnorm(n)
  }
  df <- as.data.fame(df)

  return(apply(df, 2, mean))
}

profvis(simulation())

当只有一个时function() in profvis()，框架图的上部没有任何内容。我认为原因是在图表底部突出显示条形的功能是不必要的。

示例代码：

library(profvis)

simulation <- function(p=1e4, n=100){
  df <- list()
  for(i in 1:p){  # simulate p columns of data
    df[[paste0("Var", i)]] <- rnorm(n)
  }
  df <- as.data.frame(df)  
  return(apply(df, 2, mean))
}

profvis(simulation())   # When only one function() is, the source isn't shown.

profvis({               # When there are more than two function(), source is shown.
  simulation()
  sum(iris[,1])
})