diff --git a/NAMESPACE b/NAMESPACE index 03ea44a..2b0fba7 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -29,6 +29,7 @@ export(get_financial_details_990) export(get_financial_details_990ez) export(get_foundation_ein) export(get_grantmaking_details_990) +export(get_organization_ein) export(get_organization_name_990) export(get_scheduleO) export(get_scheduleR) diff --git a/R/org_classify_description_texts.R b/R/org_classify_description_texts.R index 324f93b..07ed3e6 100644 --- a/R/org_classify_description_texts.R +++ b/R/org_classify_description_texts.R @@ -262,6 +262,54 @@ get_organization_name_990 <- function(ein) { return(organization_name) } +#' Search for the EIN an organization given a name and U.S. state +#' +#' @param state_abbrev A two-letter U.S. state abbreviation (e.g., CA). This input should be character. +#' @param org_name The name of a nonprofit organization. This input should be character. +#' +#' @return If successful, the function returns the Employment Identification Number matching the organization name in the given state +#' @importFrom dplyr filter +#' @importFrom dplyr select +#' @importFrom dplyr arrange +#' @export + +org_name_to_ein <- function(state_abbrev, org_name) { + + if (!is.character(state_abbrev)) { + + stop("Error: state_abbrev should be character.") + + } + + if (!is.character(org_name)) { + + stop("Error: org_name should be characer.") + + } + + # require exact match for short names + if (nchar(org_name) < 5) { + arrange(desc(REVENUE_AMT)) + + # allow fuzzy match for longer names + } else { + + possible_matches <- eo1 %>% + filter(STATE == state_abbrev) %>% + filter(agrepl(toupper(org_name), NAME, max.distance = 0.01)) %>% + select(NAME, STREET, CITY, STATE, REVENUE_AMT,INCOME_AMT,ASSET_AMT,EIN) %>% + arrange(desc(REVENUE_AMT)) + + } + + if (nrow(possible_matches) == 0) { + ein <- NA + } else { + ein <- possible_matches$EIN[1] + } + + return(ein) +} #' Get Employer Identification Numbers (EINs) associated with foundations #' diff --git a/README.md b/README.md index 3668975..8388d35 100644 --- a/README.md +++ b/README.md @@ -2,7 +2,6 @@ # MapAgora -[![R-CMD-check](https://github.com/snfagora/MapAgora/workflows/R-CMD-check/badge.svg)](https://github.com/snfagora/MapAgora/actions) [![Project Status: Active – The project has reached a stable, usable state and is being actively developed.](https://www.repostatus.org/badges/latest/active.svg)](https://www.repostatus.org/#active) @@ -172,4 +171,4 @@ To cite **MapAgora**, use: ## Acknowledgements -We acknowledge support from the SNF Agora Institue and P3 Lab at the Johns Hopkins University. +We acknowledge the administrative and financial support from the SNF Agora Institute and P3 Lab at Johns Hopkins University. diff --git a/docs/articles/getting-IRS.html b/docs/articles/getting-IRS.html index 24cb73e..046b0a7 100644 --- a/docs/articles/getting-IRS.html +++ b/docs/articles/getting-IRS.html @@ -85,7 +85,7 @@ -
+

getting-IRS

diff --git a/docs/articles/getting-IRS_files/header-attrs-2.10/header-attrs.js b/docs/articles/getting-IRS_files/header-attrs-2.10/header-attrs.js new file mode 100644 index 0000000..dd57d92 --- /dev/null +++ b/docs/articles/getting-IRS_files/header-attrs-2.10/header-attrs.js @@ -0,0 +1,12 @@ +// Pandoc 2.9 adds attributes on both header and div. We remove the former (to +// be compatible with the behavior of Pandoc < 2.8). +document.addEventListener('DOMContentLoaded', function(e) { + var hs = document.querySelectorAll("div.section[class*='level'] > :first-child"); + var i, h, a; + for (i = 0; i < hs.length; i++) { + h = hs[i]; + if (!/^h[1-6]$/i.test(h.tagName)) continue; // it should be a header h1-h6 + a = h.attributes; + while (a.length > 0) h.removeAttribute(a[0].name); + } +}); diff --git a/docs/articles/getting-social-media-handles.html b/docs/articles/getting-social-media-handles.html index 4491b95..4c51e49 100644 --- a/docs/articles/getting-social-media-handles.html +++ b/docs/articles/getting-social-media-handles.html @@ -85,7 +85,7 @@ -
+

socialmediahandles

diff --git a/docs/articles/getting-social-media-handles_files/header-attrs-2.10/header-attrs.js b/docs/articles/getting-social-media-handles_files/header-attrs-2.10/header-attrs.js new file mode 100644 index 0000000..dd57d92 --- /dev/null +++ b/docs/articles/getting-social-media-handles_files/header-attrs-2.10/header-attrs.js @@ -0,0 +1,12 @@ +// Pandoc 2.9 adds attributes on both header and div. We remove the former (to +// be compatible with the behavior of Pandoc < 2.8). +document.addEventListener('DOMContentLoaded', function(e) { + var hs = document.querySelectorAll("div.section[class*='level'] > :first-child"); + var i, h, a; + for (i = 0; i < hs.length; i++) { + h = hs[i]; + if (!/^h[1-6]$/i.test(h.tagName)) continue; // it should be a header h1-h6 + a = h.attributes; + while (a.length > 0) h.removeAttribute(a[0].name); + } +}); diff --git a/docs/articles/getting-websites.html b/docs/articles/getting-websites.html index 6b541d5..40e241e 100644 --- a/docs/articles/getting-websites.html +++ b/docs/articles/getting-websites.html @@ -85,7 +85,7 @@ -
+

aboutpages

diff --git a/docs/articles/getting-websites_files/header-attrs-2.10/header-attrs.js b/docs/articles/getting-websites_files/header-attrs-2.10/header-attrs.js new file mode 100644 index 0000000..dd57d92 --- /dev/null +++ b/docs/articles/getting-websites_files/header-attrs-2.10/header-attrs.js @@ -0,0 +1,12 @@ +// Pandoc 2.9 adds attributes on both header and div. We remove the former (to +// be compatible with the behavior of Pandoc < 2.8). +document.addEventListener('DOMContentLoaded', function(e) { + var hs = document.querySelectorAll("div.section[class*='level'] > :first-child"); + var i, h, a; + for (i = 0; i < hs.length; i++) { + h = hs[i]; + if (!/^h[1-6]$/i.test(h.tagName)) continue; // it should be a header h1-h6 + a = h.attributes; + while (a.length > 0) h.removeAttribute(a[0].name); + } +}); diff --git a/docs/index.html b/docs/index.html index 7a1879f..e879d2b 100644 --- a/docs/index.html +++ b/docs/index.html @@ -241,7 +241,7 @@

Acknowledgements

-

We acknowledge support from the SNF Agora Institue and P3 Lab at the Johns Hopkins University.

+

We acknowledge the administrative and financial support from the SNF Agora Institute and P3 Lab at Johns Hopkins University.

@@ -274,7 +274,6 @@

Developers

Dev status

    -
  • R-CMD-check
  • Project Status: Active – The project has reached a stable, usable state and is being actively developed.
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml index 1b42931..56930de 100644 --- a/docs/pkgdown.yml +++ b/docs/pkgdown.yml @@ -5,5 +5,5 @@ articles: getting-IRS: getting-IRS.html getting-social-media-handles: getting-social-media-handles.html getting-websites: getting-websites.html -last_built: 2021-08-02T23:53Z +last_built: 2021-09-01T17:58Z diff --git a/docs/reference/get_organization_ein.html b/docs/reference/get_organization_ein.html new file mode 100644 index 0000000..dd40a0b --- /dev/null +++ b/docs/reference/get_organization_ein.html @@ -0,0 +1,187 @@ + + + + + + + + +Search for the EIN an organization given a name and U.S. state — get_organization_ein • MapAgora + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+ + + + +
+ +
+
+
+

Search for the EIN an organization given a name and U.S. state

+ Source: R/org_classify_description_texts.R + +
+ +
+

Search for the EIN an organization given a name and U.S. state

+
+ + 
get_organization_ein(state_abbrev, org_name)
+ +

Arguments

+ + + + + + + + + + +
state_abbrev

A two-letter U.S. state abbreviation (e.g., CA)

org_name

The name of a nonprofit organization

+ +

Value

+ +

If successful, the function returns the Employment Identification Number matching the organization name in the given state

+ +
+ +
+ + +
+
+

Developed by Milan de Vries, Jae Yeon Kim.

+
+ +
+

Site built with pkgdown 1.6.1.

+
+ +
+
+ + + + + + + + diff --git a/docs/reference/index.html b/docs/reference/index.html index 1be72ea..46d23cb 100644 --- a/docs/reference/index.html +++ b/docs/reference/index.html @@ -321,6 +321,12 @@

get_organization_ein()

+ +

Search for the EIN an organization given a name and U.S. state

+ +

get_organization_name_990()

diff --git a/man/get_organization_ein.Rd b/man/get_organization_ein.Rd new file mode 100644 index 0000000..b2e80b7 --- /dev/null +++ b/man/get_organization_ein.Rd @@ -0,0 +1,19 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/org_classify_description_texts.R +\name{get_organization_ein} +\alias{get_organization_ein} +\title{Search for the EIN an organization given a name and U.S. state} +\usage{ +get_organization_ein(state_abbrev, org_name) +} +\arguments{ +\item{state_abbrev}{A two-letter U.S. state abbreviation (e.g., CA)} + +\item{org_name}{The name of a nonprofit organization} +} +\value{ +If successful, the function returns the Employment Identification Number matching the organization name in the given state +} +\description{ +Search for the EIN an organization given a name and U.S. state +}