Clean get_repos()

DESCRIPTION

@@ -38,4 +38,4 @@ ByteCompile: true
 Config/testthat/edition: 3
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.1.1
+RoxygenNote: 7.3.1

NAMESPACE

@@ -18,7 +18,9 @@ export(create_report_rpackages)
 export(get_coverages)
 export(get_github_repos)
 export(get_gitlab_repos)
+export(get_names_of_r_packages_on_github)
 export(get_non_r_packages)
+export(make_github_package_db)
 export(prepare_status_rpackages)
 export(process_hitter_response)
 export(zen_collections)

R/badge_codecov.R

@@ -1,17 +1,23 @@
 #' badge_codecov
+#' 
 #' @param repo_full_names vector with combination of username/repo (e.g. 
 #' c("KWB-R/kwb.utils", "KWB-R/kwb.db"))
 #' @return codecov badges for provided repo_full_names  
 #' @export
 
-badge_codecov <- function(repo_full_names) {
-  paste0("[![codecov](https://codecov.io/github/", 
-         repo_full_names, 
-        "/branch/master/graphs/badge.svg)](https://codecov.io/github/", 
-         repo_full_names, 
-         ")")
-
+badge_codecov <- function(repo_full_names)
+{
+  to_full_path <- function(path) {
+    paste0("github/", repo_full_names, path)
+  }
+
+  image_link(
+    image_name = "codecov", 
+    image_url = compose_url_codecov(
+      path = to_full_path("/branch/master/graphs/badge.svg")
+    ),
+    link_url = compose_url_codecov(
+      path = to_full_path("")
+    )
+  )
 }
-
-
-

R/badge_cran.R

@@ -1,15 +1,21 @@
 #' badge_cran
+#' 
 #' @param repo_names vector of repository names (e.g. c("kwb.utils", "kwb.db"))
 #' @return crank badges for provided repo_names  
 #' @export
-badge_cran <- function(repo_names) {
-  paste0("[![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/",
-         repo_names,
-        ")](http://www.r-pkg.org/pkg/", 
-        repo_names,
-        ")")
+badge_cran <- function(repo_names)
+{
+  to_full_path <- function(path) {
+    paste0(path, "/", repo_names)
+  }
+
+  image_link(
+    image_name = "CRAN_Status_Badge", 
+    image_url = compose_url_cran(
+      path = to_full_path("badges/version")
+    ),
+    link_url = compose_url_cran(
+      path = to_full_path("pkg")
+    )
+  )
 }
-
-
-
-

R/badge_dependencies.R

@@ -1,13 +1,13 @@
 #' badge_dependencies
+#' 
 #' @param repo_names vector of repository names (e.g. c("kwb.utils", "kwb.db"))
 #' @return dependency badges for provided repo_names  
 #' @export
-badge_dependencies <- function(repo_names) {
-  paste0("[![Dependencies_badge](https://kwb-githubdeps.netlify.app/badge/",
-         repo_names,
-        ")](https://kwb-githubdeps.netlify.app)")
+badge_dependencies <- function(repo_names)
+{
+  image_link(
+    image_name = "Dependencies_badge", 
+    image_url = compose_url_netlify(paste0("badge/", repo_names)),
+    link_url = compose_url_netlify("")
+  )
 }
-
-
-
-

R/badge_gitlab.R

@@ -1,19 +1,20 @@
 #' badge_gitlab
+#' 
 #' @param url url to repository on Gitlab
 #' @param logo_path path to Gitlab logo (default: 
 #' "https://gitlab.com/gitlab-com/gitlab-artwork/raw/master/logo/logo-square.png")
 #' @param size size of logo in pixels (default: 24)
 #' @return Gitlab logo in html with path to repository in Gitlab  
 #' @export
-
-badge_gitlab <- function(url, 
-logo_path = paste0("https://gitlab.com/gitlab-com/gitlab-artwork/raw/", 
-"master/logo/logo-square.png"),
-                         size = 24) {
-
-  sprintf("<a href='%s'><img src='%s' title='Gitlab' width='%d' height = '%d'/></a>", 
-          url, 
-          logo_path, 
-          size, 
-          size)
-}
+badge_gitlab <- function(
+    url, 
+    logo_path = compose_url_gitlab(
+      path = "gitlab-com/gitlab-artwork/raw/master/logo/logo-square.png"
+    ),
+    size = 24
+)
+{
+  logo_path %>% 
+    html_img(title = "Gitlab", width = size, height = size) %>%
+    html_a(href = url)
+}

R/badge_license.R

@@ -3,75 +3,38 @@
 #' @param license_keys one or many valid license keys from c("agpl-3.0", 
 #' "apache-2.0", "bsd-2-clause", "bsd-3-clause", "epl-2.0", "gpl-2.0", "gpl-3.0",    
 #' "lgpl-2.1", "lgpl-3.0", "mit", "mpl-2.0", "unlicense") 
-#' @param github_token github access token (default: Sys.getenv("GITHUB_TOKEN"))
+#' @param github_token github access token. Default: 
+#'   kwb.pkgstatus:::get_github_token()
 #' @importFrom gh gh
 #' @importFrom data.table rbindlist
 #' @importFrom dplyr left_join select_ rename_
 #' @return badge for all provided license keys
 #' @export
-badge_license <- function(license_keys, 
-                          github_token = Sys.getenv("GITHUB_TOKEN")) {
-  gh_licenses <- gh::gh(endpoint = "GET /licenses", 
-                        .token =  github_token)
-
-  gh_licenses_df <- data.table::rbindlist(gh_licenses, fill=TRUE)
-
-
+badge_license <- function(license_keys, github_token = get_github_token()) 
+{
   #### License badges from: https://gist.github.com/lukas-h/2a5d00690736b4c3a7ba
-  license_badges <- data.frame(key = c("agpl-3.0", 
-                                       "apache-2.0", 
-                                       "bsd-2-clause", 
-                                       "bsd-3-clause", 
-                                       "epl-2.0",
-                                       "gpl-2.0",
-                                       "gpl-3.0",    
-                                       "lgpl-2.1",
-                                       "lgpl-3.0", 
-                                       "mit", 
-                                       "mpl-2.0", 
-                                       "unlicense"),   
-badge_url = c("https://img.shields.io/badge/License-AGPL%20v3-blue.svg", 
-"https://img.shields.io/badge/License-Apache%202.0-blue.svg",
-"https://img.shields.io/badge/License-BSD%202--Clause-orange.svg",
-"https://img.shields.io/badge/License-BSD%203--Clause-blue.svg",
-"",
-"https://img.shields.io/badge/License-GPL%20v2-blue.svg",
-"https://img.shields.io/badge/License-GPL%20v3-blue.svg",    
-"",
-"https://img.shields.io/badge/License-LGPL%20v3-blue.svg", 
-"https://img.shields.io/badge/License-MIT-yellow.svg", 
-"https://img.shields.io/badge/License-MPL%202.0-brightgreen.svg", 
-"https://img.shields.io/badge/license-Unlicense-blue.svg"),
-license_url = c("https://opensource.org/licenses/AGPL-3.0", 
-"https://opensource.org/licenses/Apache-2.0", 
-"https://opensource.org/licenses/BSD-2-Clause", 
-"https://opensource.org/licenses/BSD-3-Clause", 
-"https://www.eclipse.org/legal/epl-2.0/",
-"https://www.gnu.org/licenses/gpl-2.0",
-"https://www.gnu.org/licenses/gpl-3.0",    
-"https://www.gnu.org/licenses/lgpl-2.1",
-"https://www.gnu.org/licenses/lgpl-3.0", 
-"https://opensource.org/licenses/MIT", 
-"https://opensource.org/licenses/MPL-2.0", 
-"http://unlicense.org/"),
-stringsAsFactors = FALSE) 
+  license_badges <- get_license_badge_info()
 
-gh_licenses_df <- dplyr::left_join(gh_licenses_df, 
-                                     license_badges) 
+  gh_licenses_df <- "GET /licenses" %>% 
+    gh::gh(.token = github_token) %>% 
+    data.table::rbindlist(fill = TRUE) %>% 
+    dplyr::left_join(license_badges) 
 
-  gh_licenses_df$Badge_License <- sprintf("[![%s](%s)](%s)", 
-                                          gh_licenses_df$spdx_id, 
-                                          gh_licenses_df$badge_url,
-                                          gh_licenses_df$license_url)
+  gh_licenses_df$Badge_License <- image_link(
+    image_name = gh_licenses_df$spdx_id, 
+    image_url = gh_licenses_df$image_url, 
+    link_url = gh_licenses_df$license_url
+  )
 
   badges <- gh_licenses_df %>%  
     dplyr::select_(~key, ~Badge_License) %>%  
-    dplyr::rename_(license_key = ~key)
-
-
-  res <- dplyr::left_join(x = data.frame(license_key = license_keys, 
-                                         stringsAsFactors = FALSE), 
-                          y = badges)
-
-  return(res$Badge_License)
+    dplyr::rename_(license_key = ~key) %>% 
+    dplyr::left_join(
+      x = data.frame(
+        license_key = license_keys, 
+        stringsAsFactors = FALSE
+      )
+    )
+
+  badges$Badge_License
 }

R/badge_opencpu.R

@@ -5,14 +5,17 @@
 #' @param size size of logo in pixels (default: 24)
 #' @return OpenCpu logo in html with path to R package on OpenCpu  
 #' @export
-
-badge_opencpu <- function(url, 
-logo_path = "https://avatars2.githubusercontent.com/u/28672890?s=200&v=4", 
-size = 24) {
-
-  sprintf("<a href='%s'><img src='%s' title='OpenCpu' width='%d' height = '%d'/></a>", 
-          url, 
-          logo_path, 
-          size, 
-          size)
+badge_opencpu <- function(
+    url, 
+    logo_path = compose_url_githubusercontent(
+      subdomain = "avatars2",
+      path = "u/28672890", 
+      parameters = list(s = 200, v = 4)
+    ), 
+    size = 24
+)
+{
+  logo_path %>% 
+    html_img(title = "OpenCpu", width = size, height = size) %>% 
+    html_a(href = url)
 }

R/badge_zenodo.R

@@ -1,42 +1,62 @@
 #' badge_zenodo
+#' 
 #' @param repo_full_names vector with combination of username/repo (e.g.
 #' c("KWB-R/kwb.utils", "KWB-R/kwb.db"))
-#' @param zenodo_token zenodo authentication token (default: 
-#' Sys.getenv("ZENODO_TOKEN")) 
+#' @param zenodo_token zenodo authentication token. 
+#'   Default: kwb.pkgstatus:::get_token("ZENODO") 
 #' @importFrom stringr str_detect
 #' @return zenodo badges for provided repo_full_names  
 #' @export
-badge_zenodo <- function(repo_full_names, 
-                         zenodo_token = Sys.getenv("ZENODO_TOKEN")) {
-
+badge_zenodo <- function(
+    repo_full_names, 
+    zenodo_token = get_token("ZENODO")
+)
+{
   zen_data <- zen_collections(access_token = zenodo_token)
 
-  zen_badge <- rep(NA, length = length(repo_full_names))
+  result <- na_along(repo_full_names)
 
   for (index in seq_along(repo_full_names)) {
+
     doi_exists <- stringr::str_detect(
       string = zen_data$metadata.related_identifiers.identifier , 
-      pattern = sprintf("https://github.com/%s", 
-      repo_full_names[index]))
+      pattern = compose_url_github(
+        path = repo_full_names[index]
+      )
+    )
 
     doi_exists[is.na(doi_exists)] <- FALSE
 
-    if(sum(doi_exists) == 1) {
+    n_existing <- sum(doi_exists)
+
+    result[index] <- if (n_existing == 1L) {
+
+      image_link(
+        image_name = "DOI", 
+        image_url = zen_data$links.badge[doi_exists], 
+        link_url = zen_data$doi_url[doi_exists]
+      )
 
-      zen_badge[index] <- sprintf("[![DOI](%s)](%s)", 
-                                  zen_data$links.badge[doi_exists], 
-                                  zen_data$doi_url[doi_exists])
+    } else if (n_existing > 1L) {
+
+      warning(
+        sprintf(
+          "Multiple entries found for repo '%s':\n",
+          repo_full_names[index]
+        ), 
+        paste(
+          zen_data$metadata.related_identifiers.identifier[doi_exists],
+          collapse = "\n"
+        )
+      )
+
+      "Multiple badges found!"
 
-    } else if (sum(doi_exists) > 1) {
-      warn_msg <- sprintf("Multiple entries found for repo '%s':\n%s",
-      repo_full_names[index], 
-      paste(zen_data$metadata.related_identifiers.identifier[doi_exists],
-      collapse = "\n"))
-      warning(warn_msg)
-      zen_badge[index] <- "Multiple badges found!"
     } else {
-      zen_badge[index] <- NA
+
+      NA
     }
   }
-  return(zen_badge)   
+
+  result
 }