Merge pull request #7 from aghaynes/master

missing dep
SwissClinicalTrialOrganisation · Mar 26, 2024 · 988bab6 · 988bab6
2 parents 03dd96a + d37cc36
commit 988bab6
Show file tree

Hide file tree

Showing 5 changed files with 12 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -19,8 +19,10 @@ Imports:
     dplyr,
     glue,
     lubridate,
+    readr,
     sessioninfo,
-    testthat
+    testthat,
+    tidyr
 RoxygenNote: 7.3.0
 Suggests: 
     rmarkdown,

diff --git a/NAMESPACE b/NAMESPACE
@@ -3,17 +3,20 @@
 S3method(print,sctovalidity)
 S3method(print,validate_result)
 export(check_session)
+export(gen_pkg_table)
 export(get_n_deps)
 export(get_pkg_data_score_post)
 export(get_test_reports)
 export(get_tests)
 export(get_valid_pkgs)
+export(load_pkg_table)
 export(risk_hook)
 export(sctopkg)
 export(sctoreports)
 export(sctotests)
 export(test)
 export(test_skeleton)
+export(update_pkg_table)
 importFrom(cranlogs,cran_downloads)
 importFrom(crayon,blue)
 importFrom(crayon,bold)
@@ -26,4 +29,6 @@ importFrom(dplyr,rename)
 importFrom(dplyr,select)
 importFrom(glue,glue)
 importFrom(lubridate,ymd)
+importFrom(readr,read_csv)
 importFrom(sessioninfo,package_info)
+importFrom(tidyr,pivot_wider)
diff --git a/R/extract_elements_pkg.R b/R/extract_elements_pkg.R
@@ -1,5 +1,6 @@
-#' @keywords internal
 #' extract the useful text elements from an issue
+#' @keywords internal
+#' @importFrom tidyr pivot_wider
 extract_elements_pkg <- function(issue){
   # most information in the body of the issue
   body <- issue$body

diff --git a/R/extract_elements_test.R b/R/extract_elements_test.R
@@ -1,5 +1,6 @@
 #' @keywords internal
 #' extract the useful text elements from an issue
+#' @importFrom tidyr pivot_wider
 extract_elements_test <- function(issue){
   # most information in the body of the issue
   body <- issue$body

diff --git a/R/validate_pkg_issue.R b/R/validate_pkg_issue.R
@@ -1,6 +1,7 @@
 #' validate the inputs for a package validation report
 #' @param score the output from calculate_pkg_score for a single package
 #' @return list wit two elements: score_ok (logical) and message (character)
+#' @keywords internal
 validate_pkg_issue <- function(score){
   if(is.na(score$final_score)){
     prefixes <- c("The package author", "The package maintainer", "The package purpose",