R/open_table.R

In azeloc/brcrimR: Downloads Brazilian Criminal Information

open_table <- function(r){

  # Create tempfile
  tmp <- tempfile()

  # Open Raw Connection to r's content
  httr::content(r, type = 'raw') %>%
    readr::write_file(tmp)

  read.delim(tmp, fileEncoding = "UTF-16LE", sep = "\t", header = T, stringsAsFactors = F)
}