## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)

## ----eval=FALSE---------------------------------------------------------------
# library(daiR)
# ## Not run:
# myfile <- "sample.pdf"
# text <- get_text(dai_sync(myfile))

## ----eval=FALSE---------------------------------------------------------------
# ## Not run:
# library(googleCloudStorageR)
# library(purrr)
# my_pdfs <- c("sample1.pdf", "sample2.pdf")
# map(my_pdfs, ~ gcs_upload(.x, name = basename(.x)))

## ----eval=FALSE---------------------------------------------------------------
# ## Not run:
# resp <- dai_async(my_pdfs)
# dai_status(resp) # to check the progress

## ----eval=FALSE---------------------------------------------------------------
# ## Not run:
# # Get a dataframe with the bucket contents
# contents <- gcs_list_objects()
# # Get the names of the JSON output files
# jsons <- grep("*.json", contents$name, value = TRUE)
# # Download them
# map(jsons, ~ gcs_get_object(.x, saveToDisk = basename(.x)))
# # Extract the text from the JSON files and save it as .txt files
# local_jsons <- basename(jsons)
# map(local_jsons, ~ get_text(.x, type = "async", save_to_file = TRUE))