Get the roots from a vector with code paths
Examples
root_from_codePaths(
c("codes>reason>parent_feels",
"codes>reason>child_feels")
);
#> codes>reason>parent_feels codes>reason>child_feels
#> "codes" "codes"