## ----echo = FALSE, include = FALSE-------------------------------------------- knitr::opts_chunk$set(tidy = FALSE, cache = TRUE, dev = "png", message = FALSE, error = FALSE, warning = TRUE) ## ----------------------------------------------------------------------------- library(SummarizedBenchmark) library(magrittr) ## ----------------------------------------------------------------------------- bdslow <- BenchDesign(data = tdat) %>% addMethod("slowMethod", function() { Sys.sleep(5); rnorm(5) }, post = list(keepSlow = identity, makeSlower = function(x) { Sys.sleep(5); x })) %>% addMethod("fastMethod", function() { rnorm(5) }, post = list(keepFast = identity, makeSlower = function(x) { Sys.sleep(5); x })) ## ----message = TRUE----------------------------------------------------------- bpp <- SerialParam() bptimeout(bpp) <- 1 sbep <- buildBench(bdslow, parallel = TRUE, BPPARAM = bpp) ## ----------------------------------------------------------------------------- sbep ## ----------------------------------------------------------------------------- sapply(assayNames(sbep), assay, x = sbep, simplify = FALSE) ## ----------------------------------------------------------------------------- names(metadata(sbep)$sessions[[1]]) ## ----------------------------------------------------------------------------- sess1res <- metadata(sbep)$sessions[[1]]$results simplify2array(sess1res) ## ----------------------------------------------------------------------------- sess1res$slowMethod$keepSlow