split to multiple columns in R

split_to_cols.R

check1 <- data.table(name = c('a,b','a,b,c','a,b,d','b,d,e','e,f,g','a,b,f'))

to_columns <- function(df, col_name)
{
    get_values <- unique(unlist(strsplit(df[[col_name]], split = ",")))
    d <- strsplit(df[[col_name]], split = ",")
    
    for(i in get_values)
    {
        df[[paste0("col_",i)]] <- sapply(d, function(x) as.integer(i %in% x))
    }
    
    return(df)
    
}

check1 <- to_columns(check1, "name")