QWI_001

library(tidyqwi)
library(dplyr)
library(DT)
library(httr)
library(htmltab)

converted_fips("NC")

## [1] "37"

converted_fips("nc")

## [1] "37"

dim(nc_qwi)

## [1] 864  12

head(nc_qwi)

## # A tibble: 6 x 12
##   year  quarter race  ethnicity ownercode seasonadj industry state county
##   <chr> <chr>   <chr> <chr>     <chr>     <chr>     <chr>    <chr> <chr> 
## 1 2010  1       A1    A1        A00       U         22       11    001   
## 2 2010  1       A1    A1        A00       U         23       11    001   
## 3 2010  1       A1    A1        A00       U         31-33    11    001   
## 4 2010  1       A1    A1        A00       U         42       11    001   
## 5 2010  1       A1    A1        A00       U         44-45    11    001   
## 6 2010  1       A1    A1        A00       U         48-49    11    001   
## # … with 3 more variables: Emp <chr>, sEmp <chr>, year_time <date>

### LEHD Industry
LEHD_Industry <- read.csv("https://lehd.ces.census.gov/data/schema/latest/label_industry.csv")
datatable(LEHD_Industry)

LEHD_OwnerCode <- read.csv("https://lehd.ces.census.gov/data/schema/latest/label_ownercode.csv")
datatable(LEHD_OwnerCode)

library(htmltab)

url <- "https://api.census.gov/data/timeseries/qwi/se/variables.html"
Variables <- htmltab(doc = url)

## Argument 'which' was left unspecified. Choosing first table.

## Warning: Columns [Attributes] seem to have no data and are removed. Use
## rm_nodata_cols = F to suppress this behavior

datatable(Variables)