## Filepath to store the virtual device:
dest <- tempfile(fileext = ".adf")
## Create a blank unformated virtual device (a double density floppy disk):
my_device <- create_adf_device(dest, "DD", connect = TRUE, write_protected = FALSE)
print(my_device)
## Format the floppy and create a file system on the device:
prepare_adf_device(my_device, name = "foobar")
print(my_device)
## don't forget to close the device connection after use:
close(my_device)
Run the code above in your browser using DataLab