search_awards is meant to be the top-level function for interacting with grant database search functions.
Simple keyword search, single source
nsf <- search_awards(keywords="illicit", sources="nsf", from_date="2023-01-01")
str(nsf)
#> 'data.frame': 16 obs. of 12 variables:
#> $ institution: chr "University of Tennessee Knoxville" "Dartmouth College" "George Mason University" "University of Southern California" ...
#> $ pi : chr "Wang, Zhenbo" "Zhang, Xiaojing (John)" "El-Amine, Hadi" "Kocoloski, Brian" ...
#> $ year : chr "2023" "2023" "2023" "2023" ...
#> $ start : chr "2023-04-01" "2023-09-01" "2023-01-01" "2023-09-01" ...
#> $ end : chr "2024-03-31" "2026-08-31" "2023-12-31" "2025-08-31" ...
#> $ program : chr "47.070" "47.041" "47.041" "47.070" ...
#> $ amount : chr "150000" "399541" "79773" "600000" ...
#> $ id : chr "2231710" "2318814" "2247286" "2319864" ...
#> $ title : chr "SCC-PG: Securing Underserved Communities from Drug Abuse with Drone-Based Smart Medication Delivery" "Label-free Detection of Opioids in Liquid Using Zinc Oxide Nanophotonic Sensor" "Conference and Grantee's Meeting: Disrupting Operations of Illicit Supply Networks; Arlington, Virginia; 27-28 March 2023" "CICI: RSSD: DISCERN: Datasets to Illuminate Suspicious Computations on Engineering Research Networks" ...
#> $ abstract : chr "Despite considerable efforts in combating substance use and exploring novel treatment and recovery strategies, "| __truncated__ "Illicit drug abuse has become another major national health crisis since the Covid-19\npandemic started, due to"| __truncated__ "Networks that illegally traffic in everything from people and drugs to human organs and nuclear material pose s"| __truncated__ "Scientific cyberinfrastructures (CIs) contain rich and powerful resources to support a wide range of experiment"| __truncated__ ...
#> $ keyword : chr "illicit" "illicit" "illicit" "illicit" ...
#> $ source : chr "NSF" "NSF" "NSF" "NSF" ...Multiple sources and keywords, specific date range
nsf_and_nih <- search_awards(keywords=c("ontological", "audio recordings"), sources=c("nsf", "nih"), from_date="2018-01-01", to_date="2018-02-01")
table(nsf_and_nih$source)
#>
#> NIH NSF
#> 555 57
unique(nsf_and_nih$keyword)
#> [1] "audio recordings" "ontological; audio recordings"
#> [3] "ontological"For more than a few keywords, you can specify an external simple csv file. If you specify a .csv file path for keywords, the file should be a list of keywords, one string per line. For example:
qualitative data
qualitative analysis
case study
case studies