added back extract_doi_id()

sumtxt · Aug 19, 2024 · 42b5096 · 42b5096
1 parent 521f5be
commit 42b5096
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/fun.R b/fun.R
@@ -117,6 +117,10 @@ render_json <- function(df,date){
     return(json)
     }
 
+extract_doi_id <- function(url){
+    return(gsub("http(|s)://dx.doi.org/", "", url))
+    }
+
 strip_html <- function(str) {
    if(is.null(str)) return(NA)
    else {