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