Commit f81a68c8 authored by Katrin Leinweber's avatar Katrin Leinweber Committed by GitHub

link DOIs to preferred resolver

parent a4d95afa
......@@ -39,7 +39,7 @@ function(input, output, session) {
totable <- deptData()
totable <- totable %>%
mutate(url = paste0("<a target='blank' href='http://dx.doi.org/", doi, "'>", doi, "</a>"),
mutate(url = paste0("<a target='blank' href='https://doi.org/", doi, "'>", doi, "</a>"),
oa_url = ifelse(!is.na(urls),
paste0("<a target='blank' href='", urls, "'>", urls, "</a>"),
urls)) %>%
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment