remove_common_root: Remove the Common Root Parts
In KWB-R/kwb.file: Functions Related to File and Path Operations

Remove the Common Root Parts

1	remove_common_root(x, n_keep = 1L, dbg = TRUE)

`x`	list of vectors of character as returned by `strsplit` or a vector of character.
`n_keep`	minimum number of segments to be kept in any case in the returned relative paths. For example, two paths "a" and "a/b" have the common root "a". Removing this root would result in relative paths "" and "b". As this is not useful, `n_keep` is `1` by default, making sure that all paths keep at least one segment (segment "a") in the example.
`dbg`	if `TRUE` debug messages are shown

# Split paths at the slashes
absparts <- strsplit(c("a/b/c", "a/b/d", "a/b/e/f/g", "a/b/hi"), "/")

# Remove the common parts of the paths
relparts <- remove_common_root(absparts)
relparts

# The extracted root is returned in attribute "root"
attr(relparts, "root")