R/zzz.R

In flomuedev/summarize: A collection of helper functions for lazy HCI researchers

pkg.env <- NULL
`%>%` <- NULL

.onLoad <- function(libname, pkgname){
  pkg.env <<- new.env()
  pkg.env$assert_colnames_quietly <- purrr::quietly(assertable::assert_colnames)
  pkg.env$googlesheets4_read_sheet_quietly <- purrr::quietly(googlesheets4::read_sheet)

  `%>%` <<- dplyr::`%>%` #woa!
}

.onAttach <- function(libname, pkgname){

  #packageStartupMessage('This is version ',  utils::packageVersion(pkgname), " of ", pkgname, ".", domain = NULL, appendLF = TRUE)


  cli::cli_alert_info(paste0("This is version ",  utils::packageVersion(pkgname), " of ", pkgname, "."), class = "packageStartupMessage")
}