Add support for externally scored packages

DESCRIPTION

@@ -44,12 +44,13 @@ Imports:
     stringr,
     tibble,
     tidyselect,
-    tidyr
+    tidyr,
+    yaml
 Suggests:
     devtools,
     pdftools,
     roxygen2,
     testthat (>= 2.1.0),
     withr
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2

NAMESPACE

@@ -25,4 +25,5 @@ importFrom(rlang,abort)
 importFrom(rlang,inform)
 importFrom(rlang,sym)
 importFrom(rlang,warn)
+importFrom(tidyselect,all_of)
 importFrom(tidyselect,everything)

R/aaa.R

@@ -1,5 +1,5 @@
 
-#' @importFrom tidyselect everything
+#' @importFrom tidyselect everything all_of
 NULL
 
 
@@ -12,8 +12,25 @@ RISK_LEVELS <-  c("NA - unexpected", "High Risk", "Medium Risk", "Low Risk")
 
 utils::globalVariables(c("."))
 
+METRIC_CATEGORIES <- c("testing", "documentation", "maintenance", "transparency")
 
 DOCUMENTATION_METRICS <- c("has_vignettes", "has_website", "has_news") #, export_help)
 MAINTENANCE_METRICS <- c("has_maintainer", "news_current")#, "last_30_bugs_status")
 TRANSPARENCY_METRICS <- c("has_source_control", "has_bug_reports_url")
-TESTING_METRICS <- c("check", "covr")
+TESTING_METRICS <- c("check", "coverage")
+
+MPN_SCORECARD_FORMAT <- "1.0"
+
+SCORECARD_JSON_KEYS <- c(
+  "mpn_scorecard_format",
+  "mpn_scorecard_version",
+  "pkg_name",
+  "pkg_version",
+  "scorecard_type",
+  "out_dir",
+  "pkg_tar_path",
+  "md5sum_check",
+  "scores",
+  "metadata",
+  "category_scores"
+)

R/calc-overall-scores.R

@@ -14,8 +14,8 @@ calc_overall_scores <- function(scorelist) {
   scorelist$category_scores <- purrr::map(categories, ~{
     indiv_scores <- unlist(scorelist$scores[[.x]])
     # Penalize coverage failures: NA --> 0
-    if("covr" %in% names(indiv_scores) && is.na(indiv_scores[["covr"]])){
-      indiv_scores[["covr"]] <- 0
+    if ("coverage" %in% names(indiv_scores) && is.na(indiv_scores[["coverage"]])) {
+      indiv_scores[["coverage"]] <- 0
     }
    round(mean(indiv_scores), 3)
   }) %>% purrr::set_names(categories)

R/create-extra-notes.R

@@ -16,25 +16,25 @@ create_extra_notes <- function(
   covr_results <- readRDS(covr_path)
   if (inherits(covr_results$errors, "error")) {
     covr_results_df <- data.frame(
-      r_script = "File coverage failed",
+      code_file = "File coverage failed",
       test_coverage = conditionMessage(covr_results$errors)
     )
   } else if (length(covr_results$coverage$filecoverage)) {
     covr_results_df <- covr_results$coverage$filecoverage %>% as.data.frame()
     covr_results_df <- covr_results_df %>%
-      mutate(r_script = row.names(covr_results_df)) %>%
-      dplyr::select("r_script", "test_coverage" = ".")
+      mutate(code_file = row.names(covr_results_df)) %>%
+      dplyr::select("code_file", "test_coverage" = ".")
     row.names(covr_results_df) <- NULL
   } else {
     covr_results_df <- data.frame(
-      r_script = "No coverage results",
+      code_file = "No coverage results",
       test_coverage = covr_results$notes
     )
   }
 
   return(
     list(
-      covr_results_df = covr_results_df,
+      cov_results_df = covr_results_df,
       check_output = check_results$stdout
     )
   )