book_site_zip <- adfeR::get_links_book()$book_site_zip
Utilize o R para baixar o arquivo compactado com o material do livro, disponível nesse link^[r book_site_zip
]. Salve o mesmo como um arquivo na pasta temporária da sessão (veja função tempfile
).
local_file <- tempfile(fileext = '.zip') my_url <- 'https://www.msperlin.com/blog/files/pafdr%20files/Code_Data_pafdR.zip' download.file(url = my_url, destfile = local_file) # check if exists file.exists(local_file)
extype: string
exsolution: r mchoice2string(c(TRUE, FALSE, FALSE, FALSE, FALSE), single = TRUE)
exname: "getwd"
exshuffle: TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.