Unzip without parent/root directory in R

Question

Using the R language only, I would like to unzip files in a zip archive without including the root directory while keeping the rest of the directory structure intact. Anothe