r - profvis() 何时以及为何显示 "Sources not available"？

Question

我经常分析 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())

Answer 1

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

示例代码:

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])
})