inst/biblioshiny/libraries.R

In bibliometrix: Comprehensive Science Mapping Analysis

# ### packages for biblishiny()
libraries <- function() {
  all_ok <- TRUE

  parse_pkg <- function(pkg_str) {
    # Estrae nome e versione minima, se specificata
    matches <- regmatches(
      pkg_str,
      regexec("^([a-zA-Z0-9\\.]+)(?: \\(>= ([0-9\\.]+)\\))?$", pkg_str)
    )[[1]]
    if (length(matches) >= 2) {
      list(
        name = matches[2],
        min_version = ifelse(length(matches) == 3, matches[3], NA)
      )
    } else {
      list(name = pkg_str, min_version = NA)
    }
  }

  safe_install <- function(pkg_str) {
    pkg_info <- parse_pkg(pkg_str)
    pkg <- pkg_info$name
    min_ver <- pkg_info$min_version

    need_install <- FALSE

    if (pkg %in% rownames(installed.packages())) {
      if (!is.na(min_ver)) {
        installed_ver <- as.character(packageVersion(pkg))
        if (compareVersion(installed_ver, min_ver) < 0) {
          message(sprintf(
            "The installed version of '%s' (%s) is lower than the required (%s).",
            pkg,
            installed_ver,
            min_ver
          ))
          need_install <- TRUE
        }
      }
    } else {
      need_install <- TRUE
    }

    if (need_install) {
      install.packages(pkg)
    }

    return(require(pkg, character.only = TRUE, quietly = TRUE))
  }

  pkgs <- c(
    "httr2",
    "base64enc",
    "bibliometrix",
    "zip",
    "shiny",
    "igraph",
    "DT",
    "stringr",
    "contentanalysis",
    "ggplot2",
    "wordcloud2",
    "ggmap",
    "maps",
    "pdftools (>= 3.6.0)",
    "tidytext",
    "visNetwork",
    "plotly",
    "fontawesome",
    "shinydashboardPlus",
    "shinydashboard",
    "shinyjs",
    "curl (>= 6.3.0)",
    "RCurl",
    "openxlsx",
    "shinyWidgets",
    "chromote",
    "pagedown",
    "Matrix",
    "dimensionsR",
    "pubmedR",
    "dplyr",
    "tidyr",
    "sparkline",
    "tidygraph",
    "ggraph"
  )

  suppressPackageStartupMessages({
    results <- vapply(pkgs, safe_install, logical(1))
    all_ok <- all(results)
  })

  return(all_ok)
}

messageItem2 <- function(
  from,
  message,
  icon = shiny::icon("user"),
  time = NULL,
  href = NULL,
  inputId = NULL
) {
  if (is.null(href)) {
    href <- "#"
  }
  shiny::tags$li(shiny::a(
    id = inputId,
    class = if (!is.null(inputId)) {
      "action-button"
    },
    href = href,
    target = "_blank",
    icon,
    shiny::h4(
      from,
      if (!is.null(time)) {
        shiny::tags$small(shiny::icon("clock-o"), time)
      }
    ),
    shiny::p(message)
  ))
}