R/7-zzz.R

In tidymass/massdataset: massdataset

.onAttach <- function(libname, pkgname) {
  needed <- core[!is_attached(core)]
  if (length(needed) == 0)
    return()
  
  crayon::num_colors(TRUE)
  massdataset_attach()
  
  # if (!"package:conflicted" %in% search()) {
  #   x <- massdataset_conflicts()
  #   msg(massdataset_conflict_message(x), startup = TRUE)
  # }
  packageStartupMessage(paste0("massdataset ", massdataset_version, " (", update_date, ')'))
}

is_attached <- function(x) {
  paste0("package:", x) %in% search()
}

convert_ms2_mzxml2mgf <- function(x) {
  purrr::map(x, function(y) {
    y$info <-
      y$info[, c("mz", "rt")]
    y
  })
}