I am learning R. This page has been very helpful. It has thought me a lot. I can't get to represent all the data in a tidy way. can someone help me finalize the code. each page has a different row name, which makes the data pages don't fall under the same column names.
library(tidyverse)
library(tidyr)
library(tabulizer)
warn<-table<-extract_tables(
"https://www.edd.ca.gov/jobs_and_training/warn/WARN-Report-for-7-1-2017-to-06-30-2018.pdf",
output = "data.frame",
pages = c(1:13),
guess = FALSE
)
warn_table=reduce(warn, bind_rows)%>%
as_tibble()%>%
filter(!(X%in%c("WARN REPORT","")))%>%
rename(noticedate=X,
effectdate=X.1,
recedate=X.2,
company=WARN.Report,
city=X.3,
country=X.4,
numempl=X.5,
)
