Merge pull request #42 from pharmaR/increase_back_compatibility

Make it more compatible with older packages

Author: Zhenglei-BCS

DESCRIPTION

@@ -12,7 +12,7 @@ License: MIT + file LICENSE
 URL: https://github.com/pharmaR/riskreports, https://pharmar.github.io/riskreports/
 BugReports: https://github.com/pharmaR/riskreports/issues
 Depends:
-    R (>= 4.5.0)
+    R (>= 4.3.0)
 Imports:
     methods,
     htmltools,
@@ -31,4 +31,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 Language: en-US
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3

NAMESPACE

@@ -10,3 +10,4 @@ export(summary_table)
 importFrom(htmltools,div)
 importFrom(methods,is)
 importFrom(tools,check_packages_in_dir_details)
+importFrom(utils,getFromNamespace)

R/render_utils.R

@@ -5,10 +5,16 @@
 #' @details The function analyzes if the license is standard. If it is standard, then it will see if there is available
 #' information for the footer. The footer information is only the multiple version number for the moment.
 #' @keywords internal
+#' @importFrom utils getFromNamespace
 extract_license <- function(assessment) {
   license_output <- list(main = as.character(assessment$license))
-
-  license_analysis <- tools::analyze_license(license_output$main)
+  # We use the internal version so that we can use old R versions analyze_license
+  if (getRversion() < "4.4.0") {
+    analyze_license <- utils::getFromNamespace("tools", "analyze_license") # nolint
+  } else {
+    analyze_license <- tools::analyze_license
+  }
+  license_analysis <- analyze_license(license_output$main)
 
   if (isTRUE(license_analysis$is_standardizable)) {
     license_output$main <- sub("\\(.+\\)", "", license_analysis$components[1])

R/utils.R

@@ -18,6 +18,9 @@ fill_in <- function(list, names) {
   list
 }
 
+`%||%` <-  function (x, y) {
+  if (is.null(x)) y else x
+}
 
 output_dir <- function() {
   opt <- getOption("riskreports_output_dir", default = NULL)
@@ -37,8 +40,13 @@ is_empty <- function(x) {
   is.null(x) || is.na(x) || !nzchar(x)
 }
 
+
+is.empty <- function(x) {
+  is.null(x) || is.na(x) || !nzchar(x)
+}
+
 #' Return string to display Origin depending on source of the assessment
-#' 
+#'
 #' @param source return value of function `pkg_ref`
 #' @returns depending on source transformed string for the origin
 #' @keywords internal