## Open virtual device to demonstrate methods
my_device <- demo_adf(write_protected = FALSE)
## Show the current directory
adf_directory(my_device)
## Create a new directory
make_adf_dir(my_device, "DF0:s/newdir")
## Change the current dir to the new directory:
adf_directory(my_device) <- "DF0:s/newdir"
## Close the virtual device
close(my_device)
Run the code above in your browser using DataLab