doc/dolrwagehour.R

In etam4260/dolr: An R interface for accessing DOL (US Department of Labor) APIs

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ---- eval=FALSE--------------------------------------------------------------
#  library(dolr)
#  
#  # This queries WHD Compliance datasets.
#  # This gets the sheet associated with retail.
#  kable(head(str_trunc(dol_whd(dataset = 3, sheet = 4), 10, ellipsis = "..."))[1:7])
#  

## ---- eval=FALSE--------------------------------------------------------------
#  
#  # This queries the Wage and Hour Publications System
#  # This get the sheet associated with: PublicationsView
#  dol_whd(dataset = 2, sheet = 1)
#  

## ---- eval=TRUE, echo=FALSE---------------------------------------------------

flcf <- data.frame("Datasets" = c("1) Farm Labor Contractor and Farm Labor Contractor Employee", rep("", 1)),
"Sheets" = paste(c("1) ", "2) "), c("Farm Labor Contractors", "Farm Labor Contractor Employees")))

whps <- data.frame("Datasets" = c("2) Wage and Hour Publications System", rep("", 1)),
"Sheets" = paste(c("1) ", "2) "), c("PublicationsView", "DocumentsView")))

whd <- data.frame("Datasets" = c("3) WHD Compliance", rep("", 3)),
"Sheets" = paste(c("1) ", "2) ", "3)", "4)"), c("full",
                                                "foodservice",
                                                "hospitality",
                                                "retail")))

breaker <- data.frame("Datasets" = c(""), "Sheets" = c(""))
knitr::kable(do.call(rbind, list(flcf, breaker, whps, breaker, whd)), "html")