# NOT RUN {
as_ftdmurl("http://downloads.hindawi.com/journals/bmri/2014/201717.xml",
"xml")
as_ftdmurl("http://downloads.hindawi.com/journals/bmri/2014/201717.pdf",
"pdf")
out <-
as_ftdmurl("http://downloads.hindawi.com/journals/bmri/2014/201717.pdf",
"pdf", "10.1155/2014/201717")
attributes(out)
identical(attr(out, "type"), "pdf")
# }
Run the code above in your browser using DataLab