nsf_get_person: Attempt to get all NSF grants for a person's name
In bomeara/rnsf: Interface to the NSF Grants API

Description Usage Arguments Value Examples

View source: R/rnsf.R

This will *attempt* to get all information for a person. There are many potential problems with this. Multiple people could have the same name. People could also modify their names (with change in marital status, change in gender, whether they use a middle initial, and so forth) so do not use this blindly to evaluate someone. That's what the h-index is for (I joke).

1	nsf_get_person(first_name = ".", middle_initial = ".", last_name)

`first_name`	Just the first name. For wildcards, use ".*"
`middle_initial`	Only one letter, no periods. For wildcards, use ".*"
`last_name`	Only the last name

A data frame with grant info

# Let's check with my grants (mainly to show how to deal with weird characters, like apostrophes)
bco <- nsf_get_person("Brian", "C", "O'Meara")
nsf_wordcloud(bco$abstractText)
plot(x=range(c(lubridate::mdy(bco$startDate), lubridate::mdy(bco$expDate))), y=range(bco$fundsObligatedAmt), type="n", log="y", bty="n", xlab="Date", ylab="Funding amount in US dollars")
for (grant.index in sequence(nrow(bco))) {
  lines(x=c(lubridate::mdy(bco$startDate)[grant.index], lubridate::mdy(bco$expDate)[grant.index]), y=rep(bco$fundsObligatedAmt[grant.index],2))
  text(x=mean(c(lubridate::mdy(bco$startDate)[grant.index], lubridate::mdy(bco$expDate)[grant.index])), y=as.numeric(bco$fundsObligatedAmt[grant.index]), labels=bco$title[grant.index], pos=3, cex=0.5)
}