Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(adfExplorer, warn.conflicts = FALSE)
disk_file <- tempfile(fileext = ".adf")
## Create a blank device and create a connection to it:
new_device <- create_adf_device(disk_file, write_protected = FALSE)
## Format the device and install a file system:
prepare_adf_device(
dev = new_device,
name = "Example_disk",
ffs = TRUE, ## Use fast file system
international = TRUE, ## Use international mode
dircache = FALSE) ## Don't use directory caching.
## Don't forget to close the connection when you are done:
close(new_device)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.