if (FALSE) {
## create a blank DOS disk:
blank.disk <- blank.amigaDOSDisk("blank", "DD", "FFS", TRUE, FALSE, FALSE)
## creating a new directory on the blank disk is easy:
blank.disk <- dir.create.adf(blank.disk, "new_dir")
## in the line above, the directory is placed in the
## current directory (the root in this case). Directories
## can also be created by specifying the full path:
blank.disk <- dir.create.adf(blank.disk, "DF0:new_dir/sub_dir")
## check whether we succeeded:
list.adf.files(blank.disk)
## we can even make it the current dir:
current.adf.dir(blank.disk) <- "DF0:new_dir/sub_dir"
}
Run the code above in your browser using DataLab