To split the columns at a delimiter, you can use the separate function from the tidyr package as depicted in the following example:
df <- data.frame(ID=1:3, Fun=c('a|b','b|c','x|y'))
> df
ID Fun
1 1 a|b
2 2 b|c
3 3 x|y
library(tidyr)
df %>%
separate(col =Fun,into= c("foo", "bar"), sep = "\\|")
Output:
ID foo bar
1 1 a b
2 2 b c
3 3 x y