R Under development (unstable) (2025-05-01 r88184 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library("profmem")
> 
> if (capabilities("profmem")) {
+ 
+ ## Defaults to on_error = "ignore")
+ p <- profmem({
+   x <- raw(1000)
+   stop("Woops!")
+ })
+ print(p)
+ 
+ 
+ for (on_error in c("ignore", "warning", "error")) {
+   message(sprintf("- profmem(..., on_error = \"%s\")", on_error))
+   res <- tryCatch({
+     profmem({
+       x <- raw(1000)
+       stop("Woops!")
+     }, on_error = on_error)
+   }, error = identity, warning = identity)
+   if (on_error == "ignore") {
+     stopifnot(inherits(res, "Rprofmem"))
+   } else {
+     stopifnot(inherits(res,  on_error))
+   }
+ }
+ 
+ } ## if (capabilities("profmem"))
Rprofmem memory profiling of:
{
    x <- raw(1000)
    stop("Woops!")
}

Memory allocations:
Number of 'new page' entries not displayed: 5
       what bytes      calls
3     alloc   256 <internal>
4     alloc   488 <internal>
5     alloc   488 <internal>
6     alloc  1072 <internal>
7     alloc  1048      raw()
8     alloc   888 <internal>
9     alloc  3624 <internal>
10    alloc  3624 <internal>
11    alloc  1072 <internal>
12    alloc   224 <internal>
13    alloc   504 <internal>
14    alloc   960 <internal>
15    alloc   416 <internal>
16    alloc   504 <internal>
17    alloc   816     stop()
18    alloc  3256     stop()
19    alloc  3256     stop()
20    alloc  1072     stop()
21    alloc   200     stop()
22    alloc   424     stop()
23    alloc   800     stop()
24    alloc   352     stop()
26    alloc   424     stop()
28    alloc   440 <internal>
29    alloc  1344 <internal>
30    alloc  1344 <internal>
31    alloc  1072 <internal>
32    alloc   184 <internal>
33    alloc   216 <internal>
34    alloc   528 <internal>
35    alloc  1648 <internal>
36    alloc  1648 <internal>
37    alloc  1072 <internal>
38    alloc   256 <internal>
39    alloc   456 <internal>
40    alloc   216 <internal>
42    alloc   256 <internal>
total       36448           

Note, an error occurred while evaluating the expression: Woops!
- profmem(..., on_error = "ignore")
- profmem(..., on_error = "warning")
- profmem(..., on_error = "error")
> 
> proc.time()
   user  system elapsed 
   0.21    0.01    0.21