cat() string in pipeline

[renkun-ken]

If an expression in a pipeline is character, then it should be cat() directly as side-effect, which is mostly used to indicate pipeline executing progress.

%>>% version:

data(diamonds, package = "ggplot2")
library(pipeR)
library(dplyr)

diamonds %>>%
  "filtering data ..." %>>%
  filter(carat >= quantile(carat, 0.05) & carat <= quantile(carat, 0.95)) %>>%
  "selecting variables ..." %>>%
  select(carat, price, depth) %>>%
  "estimating linear model ..." %>>%
  lm(formula = carat ~ price + depth) %>>%
  "summarizing model ..." %>>%
  summary

pipeline version:

data(diamonds, package = "ggplot2")
library(pipeR)
library(dplyr)

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

[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
})