何時以及爲什麼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

當只有一個function()在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]) 
})