if (FALSE) {
# For documents with numeric citations
doc <- pdf2txt_auto("paper.pdf", citation_type = "numeric_bracketed")
analysis <- analyze_scientific_content(
doc,
citation_type = "numeric_bracketed",
doi = "10.xxxx/xxxxx",
mailto = "your@email.com"
)
# For documents with author-year citations
doc <- pdf2txt_auto("paper.pdf", citation_type = "author_year")
analysis <- analyze_scientific_content(
doc,
citation_type = "author_year"
)
summary(analysis)
head(analysis$citations)
table(analysis$citation_metrics$type_distribution)
}
Run the code above in your browser using DataLab