xxxxxxxxxx
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,]