my_device <- demo_adf(write_protected = FALSE)
# The demo disk contains a deleted file that could be salvaged:
salvageable <- adf_dumpster_dive(my_device)
# Let's recover it:
salvage_adf_entry(my_device, sector = salvageable$sect)
# It is now listed as an entry on the disk:
list_adf_entries(my_device, recursive = TRUE)
close(my_device)
Run the code above in your browser using DataLab