R/package_strategy.R

In sagrudd/packyak: An automated framework for preparing RPM repos of R packages

PackageStrategy = R6::R6Class(
  "PackageStrategy",
  public = list(

    initialize = function() {
      cli::cli_alert("creating strategy handler")
      private$suggested_list <- list()
      private$imports_list <- list()
      private$installed_list <- list()
    },



    add_imports = function(items) {
      novels <- NULL
      for (item in items) {
        if (item %in% private$imports_list) {
          cli::cli_alert(
            stringr::str_interp("[${item}] already defined as imports package"))
        } else {
          cli::cli_alert(
            stringr::str_interp("adding [${item}] as an imports package"))
          private$suggested_list <- append(private$suggested_list, item)
          novels <- append(novels, item)
        }
        return(novels)
      }
    },

    is_defined = function() {
      if (item %in% private$imports_list) {
        return(TRUE)
      }
      return(FALSE)
    },


    add_sys_reqs = function(name, items) {

      skipped_methods = c("lubridate", "git2r", "unix", "microbenchmark")
      if (name %in% skipped_methods) {
        return()
      }

      items <- gsub("\\s.*","", items)
      items <- gsub(":.*", "", items)
      items <- gsub("\\).*", "", items)
      strip_vals = c("GNU", "Subversion", "Package", "optional", "C++11", "Optional", "PhantomJS")
      items <- items[!items %in% strip_vals]

      atomics <- c("xclip", "libxml2", "libgit2", "git", "libxml2-devel", "pandoc", "libsecret-devel", "ImageMagick", "fontconfig")
      for (item in items[items %in% atomics]) {
        self$register(item, item)
      }
      items <- items[!items %in% atomics]

      corpus <- list(
        "libcurl" = "libcurl-devel",
        "GNU make" = "make",
        "OpenSSL" = "openssl",
        ICU4C = "icu",
        zlib = "zlib-devel",
        libpng = "libpng-devel",
        FreeType = "freetype",
        freetype2 = "freetype-devel",
        libbz2 = "bzip2-devel",
        libjpeg = "libjpeg-turbo",
        libsodium = "libsodium-devel",
        libpq = "libpq-devel",
        cairo = "cairo-devel",
        Poppler = "poppler-devel",
        Pandoc = "pandoc"
      )

      for (item in items) {
        if (item %in% names(corpus)) {
          self$register(item, as.character(corpus[item]))
        } else {
          cli::cli_alert_danger(stringr::str_interp("new [${name}] sys_req [\"${item}\"]"))
        }
      }

    },

    is_installed = function(pkg) {
      if (pkg %in% names(private$installed_list)) {
        return(TRUE)
      }
      return(FALSE)
    },

    print = function(...) {
      cli::cli_alert_info(stringr::str_interp("Suggests: ${length(private$suggested_list)}; Imports: ${length(private$imports_list)}"))
    },

    register = function(rname, rpm) {
      cli::cli_alert_success(stringr::str_interp("registering [${rname}] with [${rpm}]"))
      private$installed_list[rname] <- rpm
    },

    get_feature = function(rname) {
      return(as.character(private$installed_list[rname]))
    }

  ),

  private = list(
    suggested_list = NA,
    imports_list = NA,
    installed_list = NA


  )
)