Update functions.R

Nonprofit-Open-Data-Collective · Nov 20, 2024 · cd69d12 · cd69d12
1 parent e17767b
commit cd69d12
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/functions.R b/functions.R
@@ -23,11 +23,11 @@ get_partvii <- function( year ){
 
 
 get_bmf <- function( inactive=TRUE ){
-  url <- https://nccsdata.s3.us-east-1.amazonaws.com/harmonized/bmf/unified/BMF_UNIFIED_ACTIVE_ORGS_V1.1.csv
+  url <- "https://nccsdata.s3.us-east-1.amazonaws.com/harmonized/bmf/unified/BMF_UNIFIED_ACTIVE_ORGS_V1.1.csv"
   bmf <- data.table::fread( url )
 
   if( inactive ){
-    url2 <- https://nccsdata.s3.us-east-1.amazonaws.com/harmonized/bmf/unified/BMF_UNIFIED_INACTIVE_ORGS_V1.1.csv
+    url2 <- "https://nccsdata.s3.us-east-1.amazonaws.com/harmonized/bmf/unified/BMF_UNIFIED_INACTIVE_ORGS_V1.1.csv"
     bmf2 <- data.table::fread( url )
     bmf <- dplyr::bind_rows( bmf, bmf2 ) }
 
@@ -47,4 +47,4 @@ format_ein <- function( x, to="id" ) {
       x <- gsub( "[^0-9]", "", x )
       return( x ) }
 
-}
+}