R/zzz.R

In AlfonsoRReyes/RepDataPeerAssessment1: Reproducible Research Assignment 1. Developed as a package

.onLoad <- function(libname = find.package("RepDataPeerAssignment1"),
                    pkgname = "RepDataPeerAssignment1"){

  myEnv <- new.env(parent = baseenv())
  project.data <- system.file("data", package = pkgname)
  # CRAN Note avoidance
  if(getRversion() >= "2.15.1")
    utils::globalVariables(
      # project.data <- system.file("data", package = pkgname),
      # sample file names from taxstats
      c("value", "Var1", "Var2", "project.data", "activity", "myEnv",

        # we use the magrittr pipe
        ".",

        # to return
        "out",

        # generic.inflators
        "variable",

        # CGT inflator
        "marginal_rate_first",


        # Taxstats Table 1
        "Selected_items",
        "Sum",

        # dput(unique(c(names(grattan:::medicare_tbl), names(grattan:::sapto_tbl), names(grattan:::cgt_expenditures))))
        c("family_status", "lower_threshold", "URL", "Projected"),

        # lito_tbl
        "max_lito", "min_bracket", "lito_taper"
      )
    )
  invisible()
}