rprof_file <- system.file("samples/rprof/1.out", package = "profile")
ds <- read_rprof(rprof_file)
ds
if (requireNamespace("RProtoBuf", quietly = TRUE)) {
pprof_file <- tempfile("profile", fileext = ".pb.gz")
write_pprof(ds, pprof_file)
}
Run the code above in your browser using DataCamp Workspace