Support Rprof(append = TRUE)

[krlmlr]

Profiles with append = TRUE trigger a warning when read.

library(profile)

rprof <- proffer::record_rprof(replicate(1e2, sample.int(1e4)))
prof <- read_rprof(rprof)

rprof <- proffer::record_rprof(replicate(1e2, sample.int(1e4)), rprof = rprof, append = TRUE)
prof2 <- read_rprof(rprof)
#> Warning: Incomplete sampling information, increase bufsize in `Rprof()` or
#> `start_profiler()` call

cat(readLines(rprof), sep = "\n")
#> sample.interval=20000
#> "sample.int" "FUN" "lapply" "sapply" "replicate" "proffer::record_rprof" "eval" "eval" "withVisible" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" "try" "handle" "timing_fn" "evaluate_call" "evaluate::evaluate" "evaluate" "in_dir" "block_exec" "call_block" "process_group.block" "process_group" "withCallingHandlers" "process_file" "knitr::knit" "rmarkdown::render" "<Anonymous>" "<Anonymous>" "do.call" "saveRDS" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" 
#> "sample.int" "FUN" "lapply" "sapply" "replicate" "proffer::record_rprof" "eval" "eval" "withVisible" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" "try" "handle" "timing_fn" "evaluate_call" "evaluate::evaluate" "evaluate" "in_dir" "block_exec" "call_block" "process_group.block" "process_group" "withCallingHandlers" "process_file" "knitr::knit" "rmarkdown::render" "<Anonymous>" "<Anonymous>" "do.call" "saveRDS" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" 
#> "sample.int" "FUN" "lapply" "sapply" "replicate" "proffer::record_rprof" "eval" "eval" "withVisible" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" "try" "handle" "timing_fn" "evaluate_call" "evaluate::evaluate" "evaluate" "in_dir" "block_exec" "call_block" "process_group.block" "process_group" "withCallingHandlers" "process_file" "knitr::knit" "rmarkdown::render" "<Anonymous>" "<Anonymous>" "do.call" "saveRDS" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" 
#> sample.interval=20000
#> "sample.int" "FUN" "lapply" "sapply" "replicate" "proffer::record_rprof" "eval" "eval" "withVisible" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" "try" "handle" "timing_fn" "evaluate_call" "evaluate::evaluate" "evaluate" "in_dir" "block_exec" "call_block" "process_group.block" "process_group" "withCallingHandlers" "process_file" "knitr::knit" "rmarkdown::render" "<Anonymous>" "<Anonymous>" "do.call" "saveRDS" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" 
#> "sample.int" "FUN" "lapply" "sapply" "replicate" "proffer::record_rprof" "eval" "eval" "withVisible" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" "try" "handle" "timing_fn" "evaluate_call" "evaluate::evaluate" "evaluate" "in_dir" "block_exec" "call_block" "process_group.block" "process_group" "withCallingHandlers" "process_file" "knitr::knit" "rmarkdown::render" "<Anonymous>" "<Anonymous>" "do.call" "saveRDS" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" 
#> "sample.int" "FUN" "lapply" "sapply" "replicate" "proffer::record_rprof" "eval" "eval" "withVisible" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch" "try" "handle" "timing_fn" "evaluate_call" "evaluate::evaluate" "evaluate" "in_dir" "block_exec" "call_block" "process_group.block" "process_group" "withCallingHandlers" "process_file" "knitr::knit" "rmarkdown::render" "<Anonymous>" "<Anonymous>" "do.call" "saveRDS" "withCallingHandlers" "doTryCatch" "tryCatchOne" "tryCatchList" "doTryCatch" "tryCatchOne" "tryCatchList" "tryCatch"

^{Created on 2020-02-25 by the reprex package (v0.3.0)}