if (FALSE) {
data(adf.example)
## get the disk name:
adf.disk.name(adf.example)
## change it if you don't like it:
adf.disk.name(adf.example) <- "MyDisk"
## confirm that it has changed:
adf.disk.name(adf.example)
}
Run the code above in your browser using DataLab