I have a data frame as below:
source <- data.frame("name" = c(\'name1\', \'name2\', \'name3\', \'name4\'), "section" =