bump v1.0.2

keberwein · Oct 10, 2016 · bfda6e8 · bfda6e8
1 parent a21f4d8
commit bfda6e8
Show file tree

Hide file tree

Showing 6 changed files with 13 additions and 5 deletions.
diff --git a/.DS_Store b/.DS_Store
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: blscrapeR
 Type: Package
 Title: An API Wrapper for the Bureau of Labor Statistics (BLS)
-Version: 1.0.1.9000
+Version: 1.0.2
 Authors@R: person("Kris", "Eberwein", email = "[email protected]",
                   role = c("aut", "cre"))
 Description: Scrapes various data from the Bureau of Labor Statistics, which is the statistical branch of the United States Department of Labor. The package has additional functions to help parse, analyze and visualize the data.

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,11 @@
+# blscrapeR 1.0.2
+
+## Bug Fixes
+* Updated URLs for the get_bls_state() function.
+
+## Tets
+* Updated tests for the get_bls_state() function.
+
 # blscrapeR 1.0.1
 
 ## Major Release

diff --git a/R/get_bls_state.R b/R/get_bls_state.R
@@ -21,8 +21,8 @@
 
 get_bls_state <- function(date_mth=NULL, seasonality = TRUE){
     state.name=NULL
-    seas <- "http://www.bls.gov/lau/ststdsadata.txt"
-    notseas <- "http://www.bls.gov/lau/ststdnsadata.txt"
+    seas <- "http://www.bls.gov/web/laus/ststdsadata.txt"
+    notseas <- "http://www.bls.gov/web/laus/ststdnsadata.txt"
     if (seasonality == TRUE){
         dat <- readLines(seas)
     }

diff --git a/R/qcew_api.R b/R/qcew_api.R
@@ -60,7 +60,7 @@ qcew_api <- function(year=2012, qtr=1, slice=NULL, sliceCode=NULL){
         },
         error=function(cond) {
             message(paste("URL does not seem to exist. Please check your parameters and try again.", url))
-            return(NA)
+            return(NULL)
         },
         warning=function(cond) {
             message(paste("URL caused a warning. Please check your parameters and try again:", url))

diff --git a/tests/testthat/test_bls_csv.R b/tests/testthat/test_bls_csv.R
@@ -101,7 +101,7 @@ testthat::expect_identical(nrow(out), nrow(df))
 date_mth=NULL
 seasonality = TRUE
 state.name=NULL
-seas <- "http://www.bls.gov/lau/ststdsadata.txt"
+seas <- "http://www.bls.gov/web/laus/ststdsadata.txt"
 dat <- readLines(seas)
 
 # If no date_mth is specified, find the latest month and return.