Skip to content
Snippets Groups Projects
Select Git revision
  • a0350cdb4ad3da47f3adc2b22c17cda6440ef93d
  • master default protected
  • feature/quantileforecast
  • develop
  • add_kseq
5 results

lapply.R

Blame
  • Code owners
    Assign users and groups as approvers for specific file changes. Learn more.
    lapply.R 1.19 KiB
    ## Do this in a separate file to see the generated help:
    #library(devtools)
    #document()
    #load_all(as.package("../../onlineforecast"))
    #?
    
    #' Helper which does lapply and then cbind
    #' @param X object to apply on
    #' @param FUN function to apply
    #' @param ... passed on to lapply
    #' @export
    lapply_cbind <- function(X, FUN, ...){
      val <- lapply(X, FUN, ...)
      return(do.call("cbind", val))
    }
    
    #' Helper which does lapply and then rbind
    #' @param X object to apply on
    #' @param FUN function to apply
    #' @param ... passed on to lapply
    #' @export
    lapply_rbind <- function(X, FUN, ...){
      val <- lapply(X, FUN, ...)
      return(do.call("rbind", val))
    }
    
    #' Helper which does lapply, cbind and then as.data.frame
    #' @param X object to apply on
    #' @param FUN function to apply
    #' @param ... passed on to lapply
    #' @export
    lapply_cbind_df <- function(X, FUN, ...){
      val <- lapply(X, FUN, ...)
      return(as.data.frame(do.call("cbind", val)))
    }
    
    #' Helper which does lapply, rbind and then as.data.frame
    #' @param X object to apply on
    #' @param FUN function to apply
    #' @param ... passed on to lapply
    #' @export
    lapply_rbind_df <- function(X, FUN, ...){
      val <- lapply(X, FUN, ...)
      return(as.data.frame(do.call("rbind", val)))
    }