update function that works with pak

update_pak.R

update_pak <- function() {
    `%>%` <- magrittr::`%>%`

    pl <- pak::lib_status() %>%
        dplyr::mutate(package_full =
          dplyr::case_when(
            dplyr::coalesce(repository, remotetype) == "CRAN" ~ package,
            dplyr::coalesce(repository, remotetype) == "github" ~
              paste0(remoteusername, "/", remoterepo),
                     TRUE ~ NA_character_)) %>%
        dplyr::filter(!is.na(package_full))

    ap <- tibble::as_tibble(utils::available.packages())

    cran_plu <- pl %>%
      dplyr::filter(repository == "CRAN") %>%
      dplyr::inner_join(ap, by = c(package = "Package")) %>%
      dplyr::filter(version < Version) %>%
      dplyr::pull(package)

    gh_plu <- pl %>%
      dplyr::filter(dplyr::coalesce(repository, remotetype) == "github") %>%
        dplyr::pull(package_full)

    pak::pkg_install(cran_plu, upgrade = TRUE)
    pak::pkg_install(gh_plu, upgrade = TRUE)
}

fails if a build fails, doesn't exit properly if nothing to update.