# NOT RUN {
library(analysisPipelines)
pipelineObj <- AnalysisPipeline(input = iris)
getNumRows <- function(dataset){
return(nrow(dataset))
}
registerFunction("getNumRows")
pipelineObj %>>% getNumRows %>>% getPipeline
# }
Run the code above in your browser using DataLab