1
.onAttach <- function(libname, pkgname) {
2
  # check gurobi package installed
3
  msg <- utils::capture.output({
4
    gurobi.installed <- is.GurobiInstalled(verbose = TRUE)
5
  })
6
  if (!gurobi.installed) {
7
    packageStartupMessage(paste0(paste(msg, collapse = "\n"),
8
        "\n\nType the code \"is.GurobiInstalled()\" to check if Gurobi ",
9
        "is\nsuccesfully installed after following these instructions."))
10
  }
11
}
12

13
.onUnload <- function(libpath) {
14
  library.dynam.unload("raptr", libpath)
15
}

Read our documentation on viewing source code .

Loading