prof.tree

Provide an alternative profiling data diplay as tree structure.

Installation

prof.tree is not yet on CRAN; it is currently available from GitHub. Make sure you have the devtools package installed, and then run:

devtools::install_github("artemklevtsov/prof.tree")

Example

times <- 4e5
cols <- 150
data <- as.data.frame(x = matrix(rnorm(times * cols, mean = 5), ncol = cols))
data <- cbind(id = paste0("g", seq_len(times)), data)
Rprof(tmp <- tempfile())
data1 <- data   # Store in another variable for this run
# Get column means
means <- apply(data1[, names(data1) != "id"], 2, mean)
# Subtract mean from each column
for (i in seq_along(means))
    data1[, names(data1) != "id"][, i] <- data1[, names(data1) != "id"][, i] - means[i]
Rprof(NULL)
library(prof.tree)
prof.tree(tmp)
unlink(tmp)
#>                               levelName real percent  env
#> 1   *                                   5.66 100.0 %     
#> 2   ¦--`apply`                          4.58  80.9 % base
#> 3   ¦   ¦--`as.matrix`                  2.34  41.3 % base
#> 4   ¦   ¦   °--`as.matrix.data.frame`   2.34  41.3 % base
#> 5   ¦   ¦       °--... 1 nodes w/ 0 sub   NA             
#> 6   ¦   ¦--`aperm`                      1.42  25.1 % base
#> 7   ¦   ¦   °--... 1 nodes w/ 0 sub       NA             
#> 8   ¦   °--`FUN`                        0.16   2.8 %     
#> 9   ¦       °--... 1 nodes w/ 0 sub       NA             
#> 10  ¦--`[<-`                            0.62  11.0 % base
#> 11  ¦   °--`[<-.data.frame`             0.62  11.0 % base
#> 12  ¦       ¦--`order`                  0.32   5.7 % base
#> 13  ¦       ¦   °--... 4 nodes w/ 1 sub   NA             
#> 14  ¦       °--... 1 nodes w/ 5 sub       NA             
#> 15  °--`-`                              0.46   8.1 % base

Bug reports

First check the changes in the latest version of the package. Type type into R:

news(package = "prof.tree", Version == packageVersion("prof.tree"))

Try reproduce a bug with the latest development version from Git.

To report a bug please type into R:

utils::bug.report(package = "prof.tree")

Post the traceback() and sessionInfo() output also may be helpful.