search_awards is
meant to be the top-level function for interacting with grant database
search functions.
nsf <- search_awards(keywords="illicit", sources="nsf", from_date="2023-01-01")
str(nsf)
#> 'data.frame': 30 obs. of 12 variables:
#> $ id : chr "2231710" "2237907" "2240299" "2240359" ...
#> $ source : chr "NSF" "NSF" "NSF" "NSF" ...
#> $ institution: chr "University of Tennessee Knoxville" "University Enterprises Corporation at CSUSB" "University of Alabama Tuscaloosa" "University of Illinois at Urbana-Champaign" ...
#> $ pi : chr "Wang, Zhenbo" "Bichler, Gisela" "Freeman, Nickolas" "Kang, Hyojung" ...
#> $ year : chr "2023" "2023" "2023" "2023" ...
#> $ start : chr "2023-04-01" "2023-08-01" "2023-07-01" "2023-08-01" ...
#> $ end : chr "2024-07-31" "2027-07-31" "2026-06-30" "2027-07-31" ...
#> $ program : chr "47.070" "47.041, 47.075" "47.041, 47.070, 47.075, 47.083" "47.041" ...
#> $ amount : chr "150000" "992709" "730890" "516544" ...
#> $ title : chr "SCC-PG: Securing Underserved Communities from Drug Abuse with Drone-Based Smart Medication Delivery" "D-ISN: Constraining Illicit Decision Making Within and Across Dynamic Supply Networks" "D-ISN: Understanding the New Online Advertisement Ecosystem and its Links to Human Trafficking and Other Organized Crime" "D-ISN/Collaborative Research: Mitigating the Harm of Fentanyl through Holistic Demand/Supply Interventions and "| __truncated__ ...
#> $ abstract : chr "Despite considerable efforts in combating substance use and exploring novel treatment and recovery strategies, "| __truncated__ "The objective of this Disrupting Operations of Illicit Supply Networks (D-ISN) research study is to develop and"| __truncated__ "The objective of this Disrupting Operations of Illicit Supply Networks (D-ISN) project is to better understand "| __truncated__ "The objective of this Disrupting Operations of Illicit Supply Networks (D-ISN) research project is to investiga"| __truncated__ ...
#> $ keyword : chr "illicit" "illicit" "illicit" "illicit" ...nsf_and_nih <- search_awards(keywords=c("ontological", "audio recordings"), sources=c("nsf", "nih"), from_date="2018-01-01", to_date="2018-09-01")
table(nsf_and_nih$source)
#>
#> NIH NSF
#> 21 11
unique(nsf_and_nih$keyword)
#> [1] "ontological" "audio recordings"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