R/update.R

In iNZightVIT/iNZightUpdate: An updater for the iNZight desktop apps

#' Update iNZightVIT
#'
#' @param os one of 'windows', 'macos', or 'linux'
#' @return logical whether or not update was successful
#' @author Tom Elliott
#' @export
update <- function(os = c("windows", "macos", "linux")) {
    os <- match.arg(os)

    if (utils::packageVersion("iNZight") < numeric_version("4.0.0")) {
        msg <- c(
            "The latest version, iNZight 4.0, contains some bigger changes",
            "than usual. It also has some updated dependencies, so please",
            "head to our website and download the latest installer.",
            "",
            "  https://inzight.nz/getinzight"
        )
        if (requireNamespace("tcltk", quietly = TRUE)) {
            tcltk::tk_messageBox("ok",
                message = paste(msg, collapse = "\n"),
                caption = "New Major Release Available"
            )
        } else {
            cat(sep = "", paste0(" * ", msg, "\n"))
        }
        return()
    }

    update_fun <- eval(parse(text = sprintf("update_%s", os)))
    res <- update_fun()
    if (!res) stop("There was a problem running the updater")

    cat("* iNZightVIT was updated successfully\n")
}

.update <- function(lib, type = "source") {
    cat(sprintf("* Updating packages in %s\n", lib))
    x <- try(
        utils::update.packages(
            lib.loc = lib,
            repos = c(
                "https://r.docker.stat.auckland.ac.nz",
                "https://cloud.r-project.org"
            ),
            type = type,
            ask = FALSE
        ),
        silent = TRUE
    )
    !inherits(x, "try-error")
}

update_windows <- function() {
    move_win_prefs()
    update <- try(update_launcher(), silent = TRUE)
    if (inherits(update, "try-error")) {
        stop(
            paste(sep = "\n",
                "iNZight was unable to self-update.",
                "Please check your internet connection, or install a fresh copy from the website (https://inzight.nz)."
            )
        )
    }
    .update(.libPaths()[1], type = "win.binary")
}

update_macos <- function() {
    .update("/Applications/iNZightVIT/.library")
}

update_linux <- function() {
    .update(getwd())
}

move_win_prefs <- function() {
    if (utils::packageVersion("iNZight") >= numeric_version("4.1")) return()
    pp <- file.path("~", "iNZightVIT", ".inzight")
    if (dir.exists(pp)) pp <- file.path(pp, ".inzight")
    if (!file.exists(pp)) return()
    np <- file.path(
        tools::R_user_dir("iNZight", "config"),
        "preferences.R"
    )
    try(file.rename(pp, np), TRUE)
}

update_launcher <- function() {
    # update launcher.R
    new_launcher <- "launcher.R.tmp"
    res <- utils::download.file(
        'https://raw.githubusercontent.com/iNZightVIT/win-installer/master/launcher.R',
        new_launcher,
        quiet = TRUE
    )
    if (res == 0) {
        file.rename(new_launcher, "launcher.R")
    }
}