R/create_index.R

Defines functions create_index

Documented in create_index

#' create_index
#'
#' @param self self
#'
create_index <- function(self) {

  tmp <- 1

  if (!is.null(self$inputs))
    tmp <- c(tmp, max(self$inputs$index) + 1)

  if (!is.null(self$outputs))
    tmp <- c(tmp, max(self$outputs$index) + 1)

  max(tmp)
}

Try the rDataPipeline package in your browser

Any scripts or data that you put into this service are public.

rDataPipeline documentation built on Nov. 18, 2021, 1:14 a.m.