library(stringi)
library(dplyr)
library(tidyr)

fil <- stri_read_lines("example_facebook.csv")
fil <- iconv(enc2utf8(fil), sub="bytes")

cols <- read.csv(text=fil[1])

separate(data_frame(tmp=fil[-1]),
         tmp,
         cols,
         sep=",") -> df