# NOT RUN {
# Get some data
x <- ft_get('10.1371/journal.pone.0086169')
# note that the data is not in the object, gives NULL
x$plos$data$data
# Collect data from the .xml file
y <- x %>% ft_collect()
# note how the data is now in the object
y$plos$data$data
# Let's get the actual
## ft_collect() alone, replaces file pointers with parsed text,
## maintaining object structure
x %>% ft_collect()
## pulls the text out of the object
x %>% ft_collect() %>% ft_text()
# }
Run the code above in your browser using DataLab