# NOT RUN {
if (interactive()) {
## from a directory path
x <- ft_table()
x
## only xml
ft_table(type = "xml")
## only pdf
ft_table(type = "pdf")
## don't pull text out of xml, just give back the xml please
x <- ft_table(xml_extract_text = FALSE)
x
}
# }
Run the code above in your browser using DataLab