CRAN bump

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: blscrapeR
 Type: Package
 Title: An API Wrapper for the Bureau of Labor Statistics (BLS)
-Version: 3.1.3
+Version: 3.1.4
 Authors@R: person("Kris", "Eberwein", email = "[email protected]",
                   role = c("aut", "cre"))
 Description: Scrapes various data from <https://www.bls.gov/>. The U.S. Bureau of Labor Statistics is the statistical branch of the United States Department of Labor. The package has additional functions to help parse, analyze and visualize the data.

NEWS.md

@@ -1,3 +1,15 @@
+# blscrapeR 3.1.4
+
+## Bug fixes
+
+* Fixed area in tesing module where `qcew_api()` function was pulling inproper dates.
+
+## Enhancements
+
+* Added logic to `qcew_api()` that throws a warning if useer attempts to query dates outside of the API's range.
+
+Updated NIACS and FIPS codes for 2018.
+
 # blscrapeR 3.1.3
 
 ## Bug fixes

R/qcew_api.R

@@ -31,7 +31,7 @@ qcew_api <- function(year=2018, qtr="a", slice=NULL, sliceCode=NULL, ...){
     year = as.numeric(year)
 
     # This API only keeps four years of data.
-    if (year <= as.numeric(format(Sys.Date(), "%Y")) - 4)
+    if (year < as.numeric(format(Sys.Date(), "%Y")) - 4)
         warning("ERROR: The QCEW API only provides data for the last four years. Please ajust your arguments.")
 
     if (!is.character(year)) year <- as.character(year)