cat() string in pipeline

[renkun-ken]

cat() string in pipeline

[renkun-ken]

An interesting test case is

data(diamonds, package = "ggplot2")
library(pipeR)
library(dplyr)
pipeline({
  diamonds
  "filtering data ..."
  filter(carat >= quantile(carat, 0.05) & carat <= quantile(carat, 0.95))
  ~ Sys.sleep(0.5)
  "selecting variables ..."
  select(carat, price, depth)
  ~ Sys.sleep(0.5)
  "estimating linear model ..."
  lm(formula = carat ~ price + depth)
  ~ Sys.sleep(0.5)
  "summarizing model ..."
  summary
})