mirror of
https://github.com/briatte/awesome-network-analysis.git
synced 2024-10-01 01:06:13 -04:00
check.r -- ignore DOIs, assume they just work
This commit is contained in:
parent
0db097c7a6
commit
dc5d1af045
3
check.r
3
check.r
@ -59,6 +59,9 @@ l <- str_squish(sort(unique(l)))
|
|||||||
|
|
||||||
cat(length(l), "unique\n")
|
cat(length(l), "unique\n")
|
||||||
|
|
||||||
|
cat("Ignoring", sum(str_detect(l, "^https://doi.org/")), "DOIs\n")
|
||||||
|
l <- str_subset(l, "^https://doi.org/", negate = TRUE)
|
||||||
|
|
||||||
sink(f, append = FALSE)
|
sink(f, append = FALSE)
|
||||||
cat(as.character(Sys.time()), ": checking", length(l), "URLs\n\n")
|
cat(as.character(Sys.time()), ": checking", length(l), "URLs\n\n")
|
||||||
sink()
|
sink()
|
||||||
|
Loading…
Reference in New Issue
Block a user