| Title: | awardFindR |
|---|---|
| Description: | Queries a number of scientific awards databases. Collects relevant results based on keyword and date parameters, returns list of projects that fit those criteria as a data frame. Sources include: Arnold Ventures, Carnegie Corp, Federal RePORTER, Gates Foundation, MacArthur Foundation, Mellon Foundation, NEH, NIH, NSF, Open Philanthropy, Open Society Foundations, Rockefeller Foundation, Russell Sage Foundation, Robert Wood Johnson Foundation, Sloan Foundation, Social Science Research Council, John Templeton Foundation, and USASpending.gov. |
| Authors: | Michael C. McCall |
| Maintainer: | Michael McCall <[email protected]> |
| License: | MIT + file LICENSE |
| Version: | 1.0.1 |
| Built: | 2024-08-29 23:11:31 UTC |
| Source: | https://github.com/ropensci/awardFindR |
Scrape the Templeton grants database from html to a data.frame
create_templeton_df(verbose = FALSE)create_templeton_df(verbose = FALSE)
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
A data.frame
## Not run: templeton <- create_templeton_df()## Not run: templeton <- create_templeton_df()
Get Arnold Foundations/Arnold Venture awards
get_arnold(keyword, from_year, to_year, verbose = FALSE)get_arnold(keyword, from_year, to_year, verbose = FALSE)
keyword |
Keyword to query |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
arnold <- get_arnold("qualitative", 2016, 2017)arnold <- get_arnold("qualitative", 2016, 2017)
Search Carnegie awards
get_carnegie(keyword, from_year, to_year, verbose = FALSE)get_carnegie(keyword, from_year, to_year, verbose = FALSE)
keyword |
Keyword to query |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
## Not run: carnegie <- get_carnegie("qualitative data", 2016, 2017) ## End(Not run)## Not run: carnegie <- get_carnegie("qualitative data", 2016, 2017) ## End(Not run)
Query awards from the Bill & Melinda Gates Foundation
get_gates(keyword, from_year, to_year, verbose = FALSE)get_gates(keyword, from_year, to_year, verbose = FALSE)
keyword |
Keyword to query |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
gates <- get_gates("qualitative", 2018, 2020)gates <- get_gates("qualitative", 2018, 2020)
Search MacArthur foundation for awards
get_macarthur(keyword, from_year, to_year, verbose = FALSE)get_macarthur(keyword, from_year, to_year, verbose = FALSE)
keyword |
Keyword to query |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
macarthur <- get_macarthur("qualitative", "1999-01-01", "2020-01-01")macarthur <- get_macarthur("qualitative", "1999-01-01", "2020-01-01")
Search the Andrew W. Mellon Foundation grant database
get_mellon(keyword, from_year, to_year, verbose = FALSE)get_mellon(keyword, from_year, to_year, verbose = FALSE)
keyword |
Keyword to query |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
mellon <- get_mellon("qualitative", 2013, 2021)mellon <- get_mellon("qualitative", 2013, 2021)
Search NIH RePORTER
get_nih(keyword, from_date, to_date, verbose = FALSE, payload = NULL)get_nih(keyword, from_date, to_date, verbose = FALSE, payload = NULL)
keyword |
Keyword to query |
from_date |
Date object to begin search |
to_date |
Date object to end search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
payload |
A custom NIH search query object. Only for advanced purposes. default: null |
a data.frame
nih <- get_nih("ethnography", "2019-01-01", "2019-05-01")nih <- get_nih("ethnography", "2019-01-01", "2019-05-01")
Search the NSF API for awards
get_nsf(keyword, from_date, to_date, verbose = FALSE, cfda = NULL)get_nsf(keyword, from_date, to_date, verbose = FALSE, cfda = NULL)
keyword |
Keyword to query |
from_date |
Date object to begin search |
to_date |
Date object to end search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
cfda |
Comma-separated CFDA codes to include, default: all |
A data.frame
nsf <- get_nsf("ethnography", "2020-01-01", "2020-02-01")nsf <- get_nsf("ethnography", "2020-01-01", "2020-02-01")
Grab the Open Philanthropy grants data search for keyword-date combos
get_ophil(keyword, from_year, to_year, verbose = FALSE)get_ophil(keyword, from_year, to_year, verbose = FALSE)
keyword |
Keyword to query |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
A data.frame
ophil <- get_ophil("qualitative", 2019, 2020)ophil <- get_ophil("qualitative", 2019, 2020)
Query and scrape Open Society foundation awards
get_osociety(keyword, from_year, to_year, verbose = FALSE)get_osociety(keyword, from_year, to_year, verbose = FALSE)
keyword |
Keyword to query |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
osociety <- get_osociety("qualitative", 2016, 2019)osociety <- get_osociety("qualitative", 2016, 2019)
Search Rockefeller Foundation grants
get_rockefeller(keyword, from_date, to_date, verbose)get_rockefeller(keyword, from_date, to_date, verbose)
keyword |
Keyword to query |
from_date |
Date object to begin search |
to_date |
Date object to end search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
## Not run: rockefeller <- get_rockefeller("test", "2012-01-01", "2021-01-01") ## End(Not run)## Not run: rockefeller <- get_rockefeller("test", "2012-01-01", "2021-01-01") ## End(Not run)
Get Russell Sage foundation awards
get_rsf(keyword, verbose = FALSE)get_rsf(keyword, verbose = FALSE)
keyword |
Keyword to query, single string |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
## Not run: rsf <- get_rsf("ethnography")## Not run: rsf <- get_rsf("ethnography")
Get Robert Wood Johnson foundation awards
get_rwjf(keyword, from_year, to_year, verbose = FALSE)get_rwjf(keyword, from_year, to_year, verbose = FALSE)
keyword |
Keyword to query |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
rwjf <- get_rwjf("qualitative data analysis", 2014, 2014)rwjf <- get_rwjf("qualitative data analysis", 2014, 2014)
Search for a set of keywords in the Sloan grants database.
get_sloan(keyword, from_year, to_year, verbose = FALSE, grantee = FALSE)get_sloan(keyword, from_year, to_year, verbose = FALSE, grantee = FALSE)
keyword |
Keyword to query |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
grantee |
Use the web-based search function instead of an internal grep(), ideal for searching names |
A data.frame
## Not run: sloan <- get_sloan("case studies", 2018, 2020) ## End(Not run)## Not run: sloan <- get_sloan("case studies", 2018, 2020) ## End(Not run)
Search SSRC fellowships and grants by keyword and date Note: API limitations prevent returning more than 1000 results.
get_ssrc(keyword, from_year, to_year, verbose = FALSE, totals = FALSE)get_ssrc(keyword, from_year, to_year, verbose = FALSE, totals = FALSE)
keyword |
Keyword to query |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
totals |
Only return the total number of results, not a table |
a data.frame
## Not run: ssrc <- get_ssrc("qualitative", 2015, 2016)## Not run: ssrc <- get_ssrc("qualitative", 2015, 2016)
Search for a set of keywords in the Templeton grants database.
get_templeton(keywords, from_year, to_year, verbose = FALSE)get_templeton(keywords, from_year, to_year, verbose = FALSE)
keywords |
Vector of strings to search |
from_year |
Beginning year to search |
to_year |
Ending year to search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
A data.frame
## Not run: templeton <- get_templeton(c("qualitative data", "case studies"), 2018, 2020) ## End(Not run)## Not run: templeton <- get_templeton(c("qualitative data", "case studies"), 2018, 2020) ## End(Not run)
Search the USAspending database
get_usaspend(keywords, from_date, to_date, verbose)get_usaspend(keywords, from_date, to_date, verbose)
keywords |
Vector of strings to search |
from_date |
Date object to begin search |
to_date |
Date object to end search |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
## Not run: results <- usaspend_get(c("qualitative", "interview"), "2019-01-01", "2020-01-01") ## End(Not run)## Not run: results <- usaspend_get(c("qualitative", "interview"), "2019-01-01", "2020-01-01") ## End(Not run)
Query a collection of online grant databases for awards. These queries can be limited by keyword, source and date terms.
search_awards( keywords, sources = c("arnold", "carnegie", "gates", "macarthur", "mellon", "nih", "nsf", "ophil", "osociety", "rockefeller", "rsf", "rwjf", "sloan", "ssrc", "templeton", "usaspend"), from_date = "2019-01-01", to_date = Sys.Date(), verbose = FALSE )search_awards( keywords, sources = c("arnold", "carnegie", "gates", "macarthur", "mellon", "nih", "nsf", "ophil", "osociety", "rockefeller", "rsf", "rwjf", "sloan", "ssrc", "templeton", "usaspend"), from_date = "2019-01-01", to_date = Sys.Date(), verbose = FALSE )
keywords |
Path to keywords csv file (1 term per line) or vector. |
sources |
A vector of sources to pull from. Default: all |
from_date |
A date object to limit the search, defaults to Jan 1 2019 |
to_date |
A date object to limit the search, defaults to today |
verbose |
enable verbose HTTP messages. TRUE/FALSE, default: false |
a data.frame
# Results for "ethnography" from NSF between 1/1 and 2/1 2020 ## Not run: awards <- search_awards("ethnography", "nsf", "2020-01-01", "2020-02-01") ## End(Not run) # More intensive queries ## Not run: # Specific keywords, all sources: specific <- search_awards(keywords=c("ethnography", "case studies")) # Specific keyword, all sources, specific date range: five_years <- search_awards(keywords="qualitative", from_date="2015-01-01", to_date="2020-01-01") ## End(Not run)# Results for "ethnography" from NSF between 1/1 and 2/1 2020 ## Not run: awards <- search_awards("ethnography", "nsf", "2020-01-01", "2020-02-01") ## End(Not run) # More intensive queries ## Not run: # Specific keywords, all sources: specific <- search_awards(keywords=c("ethnography", "case studies")) # Specific keyword, all sources, specific date range: five_years <- search_awards(keywords="qualitative", from_date="2015-01-01", to_date="2020-01-01") ## End(Not run)