The function search for the longest common prefix between multiple strings.
comsub(data, sep = "")
A vector of strings
A character which is used to separate elements; default ("") is used to compare single characters; other useful alternatives are "/" (or "\\\\" in Windows) to find the longest common directory, or " " to compare words instead of characters.
A character with the longest common initial substring
Modified from a suggestion taken from stackoverflow.
L. Ranghetti, M. Boschetti, F. Nutini, L. Busetto (2020). "sen2r": An R toolbox for automatically downloading and preprocessing Sentinel-2 satellite data. Computers & Geosciences, 139, 104473. doi:10.1016/j.cageo.2020.104473 , URL: https://sen2r.ranghetti.info/.
strings <- c("/home/user/git/sen2r",
"/home/user/git_data/sen2r/ex/vrt/01_translate/")
comsub(strings)
#> [1] "/home/user/git"
comsub(strings, sep="/")
#> [1] "/home/user/"