add link to commit if available

ropensci · Apr 23, 2018 · fec19c8 · fec19c8
1 parent a4c1f10
commit fec19c8
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/R/create_codemeta.R b/R/create_codemeta.R
@@ -109,6 +109,19 @@ create_codemeta <- function(pkg = ".",
         cm$relatedLink <- unique(c(cm$relatedLink,
                                    paste0("https://bioconductor.org/packages/release/bioc/html/",
                                           cm$identifier, ".html")))
+      }else{
+        # if GitHub try to build the URL to commit or to repo in general
+        if(grepl("Github", provider_name)){
+          if(grepl("@", provider_name)){
+            commit <- gsub(".*@", "", provider_name)
+            commit <- gsub("\\)", "", commit)
+            link <- gsub(".*\\(", "", provider_name)
+            link <- gsub("@.*", "", link)
+            cm$relatedLink <- unique(c(cm$relatedLink,
+                                       paste0("https://github.com/", link,
+                           "/commit/", commit)))
+          }
+        }
       }
     }
   }else{