infobasica <- read.table("file.csv", sep = "|", quote = "", fileEncoding = "Windows-1252") splits <- length(gregexpr("¬", as.character(infobasica[1,1]), perl = TRUE)[[1]]) infobasica <- as.data.frame(stringr::str_split_fixed(infobasica$V1, "¬", n = splits+1)) colnames(infobasica) <- infobasica[1,] infobasica <- infobasica[-1,]