franzbischoff

/*
    R : A Computer Language for Statistical Data Analysis
    Copyright (C) 1998--2019  The R Core Team
    Copyright (C) 1995, 1996, 1997  Robert Gentleman and Ross Ihaka

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

franzbischoff

#Load Libraries
library(foreach)
library(utils)
library(iterators)
library(doParallel)

#Choose number of iterations
n <- 1000

#Progress combine function

franzbischoff

myfunction <- function (a, b, c, ...) 
{
  p <- list()
  # use formals to get the arguments from a function.
  # use sys.function() to get the own function. if you return sys.function() you return itself
  formal.args <- formals(sys.function()) 
  
  formal.args[["..."]] <- NULL # this is not needed, but here you can remove the "..." argument
  
  for (arg in names(formal.args)) {

franzbischoff

#' Plot network of package dependencies
#'
#' @param pkg package description, can be path or package name. See \code{\link[devtools]{as.package}} for
#'    more information.
#'
#' @details The resulting plot visualizes the network of package dependencies. If you are trying to cut down
#'    on package dependencies look for big red dots that represent a lot of upstream but few downstream
#'    dependencies.
#' @import ggplot2
#' @export

franzbischoff

check_buildignore <- function() {
  patterns <- readLines(".Rbuildignore")
  hits <- list()
  for (pat in patterns) {
    hit <- dir(
      full.names = FALSE, recursive = TRUE,
      all.files = TRUE, include.dirs = TRUE, no.. = TRUE
    )[grepl(
      pat,
      dir(

franzbischoff