chore: cleanup tools imports

Author: dgkf

NAMESPACE

@@ -15,7 +15,6 @@ export(summary_table)
 importFrom(grDevices,grSoftVersion)
 importFrom(htmltools,div)
 importFrom(methods,is)
-importFrom(tools,analyze_license)
 importFrom(tools,check_packages_in_dir_details)
 importFrom(utils,capture.output)
 importFrom(utils,getFromNamespace)

R/render_utils.R

@@ -5,15 +5,14 @@
 #' @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 tools analyze_license
 #' @importFrom utils getFromNamespace
 extract_license <- function(assessment) {
   license_output <- list(main = as.character(assessment$license))
   # 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
+    analyze_license <- getExportedValue("tools", "analyze_license")
   }
   license_analysis <- analyze_license(license_output$main)