tmp/snippets.R

In rengelke/quantTraiding_trato: Trading Strategies Development Tool Kit

# Get File Encoding -------------------------------------------------------


#Use iconvlist to get all possible encodings:
codepages <- setNames(iconvlist(), iconvlist())
#read data using each of them
lst <- lapply(codepages, function(enc) try(read.csv2("tmp.csv", skip=20,
                                                     fileEncoding=enc)))
lst <- lapply(codepages, function(enc) try(readLines(tmp,
                                                     encoding=enc)))

unique(do.call(rbind, sapply(lst, dim)))

#try to guess encoding
readr::guess_encoding(tmp, n_max = 1000)