## Open virtual device to demonstrate methods
my_device <- demo_adf(write_protected = FALSE)
## rename a specific entry
adf_entry_name(my_device, "DF0:mods/mod.intro") <- "mod.music"
## rename disk (also possible with `volume_name<-()`)
adf_entry_name(my_device, "DF0:") <- "my_disk"
close(my_device)
Run the code above in your browser using DataLab