## ----include = FALSE----------------------------------------------------------
options(rmarkdown.html_vignette.check_title = FALSE)
library(knitr)
opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE---------------------------------------------------------------
#  processors <- get_processors()
#  any(grep("FORM_PARSER", processors$type))

## ----eval=FALSE---------------------------------------------------------------
#  formparser_id <- unique(processors$id[processors$type == "FORM_PARSER_PROCESSOR"])

## ----eval=FALSE---------------------------------------------------------------
#  formparser_id <- create_processor("<unique_chosen_name>", type = "FORM_PARSER_PROCESSOR")

## ----eval=FALSE---------------------------------------------------------------
#  formparser_id

## ----echo=FALSE, out.width = "100%"-------------------------------------------
include_graphics("tobacco.PNG")

## ----eval=FALSE---------------------------------------------------------------
#  setwd(tempdir())
#  url <- "https://archive.org/download/tobacco_lpnn0000/lpnn0000.pdf"
#  download.file(url, "tobacco.pdf")

## ----eval=FALSE---------------------------------------------------------------
#  resp <- dai_sync("tobacco.pdf", proc_id = formparser_id)

## ----eval=FALSE---------------------------------------------------------------
#  tables <- get_tables(resp)

## ----eval=FALSE---------------------------------------------------------------
#  View(tables[[1]])

## ----eval=FALSE---------------------------------------------------------------
#  for(i in seq_along(tables)) {
#    assign(paste0("table", i), tables[[i]])
#  }

## ----eval=FALSE---------------------------------------------------------------
#  for(i in seq_along(tables)) {
#    filename <- paste0("table", i, ".csv")
#    write.csv(tables[[i]], filename, row.names = FALSE)
#  }

## ----echo=FALSE, out.width = "100%"-------------------------------------------
include_graphics("table.PNG")

## ----eval=FALSE---------------------------------------------------------------
#  library(googleCloudStorageR)
#  gcs_upload("tobacco.pdf")

## ----eval=FALSE---------------------------------------------------------------
#  gcs_list_objects()

## ----eval=FALSE---------------------------------------------------------------
#  resp <- dai_async("tobacco.pdf", proc_id = formparser_id)
#  dai_notify(resp)

## ----eval=FALSE---------------------------------------------------------------
#  contents <- gcs_list_objects()
#  our_json <- grep("tobacco.*json", contents$name, value = TRUE)
#  gcs_get_object(our_json, saveToDisk = "tobacco.json")

## ----eval=FALSE---------------------------------------------------------------
#  tables <- get_tables("tobacco.json", type = "async")