diff --git a/data-raw/FAFData.R b/data-raw/FAFData.R
index cebe9a0..5d11e4b 100644
--- a/data-raw/FAFData.R
+++ b/data-raw/FAFData.R
@@ -9,7 +9,7 @@ getFAF <- function(year) {
     # Create placeholder for zip file and specify filename based on year
     if (year == 2012) {
       FAFzip <- file.path(stateio_dir, "FAF4.5.1_csv_State.zip")
-      filename <- file.path(Stateio_dir, "FAF4.5.1_State.csv")
+      filename <- file.path(stateio_dir, "FAF4.5.1_State.csv")
       
     } else if (year %in% c(2013:2018)) {
       FAFzip <- file.path(stateio_dir, "FAF4.5.1_csv_State_2013-2018.zip")
diff --git a/data-raw/USASpendingData.R b/data-raw/USASpendingData.R
index 9e76a6e..f2648bb 100644
--- a/data-raw/USASpendingData.R
+++ b/data-raw/USASpendingData.R
@@ -1,4 +1,5 @@
 source("data-raw/data_raw.R")
+library(stringr)
 #' Download Federal Government Spending data by 6-digit NAICS code
 #' By state and county from USASpending.gov.
 #' @param year A numeric value specifying year of interest.