Session crashes when reading a rectangular IPUMS extract with hipread_list()

[dtburk]

You can reproduce this bug using the attached file with the following code:

col_spec <- list(
  P = structure(
    list(
      start = c(0, 4, 9, 19, 21, 23, 25, 35), 
      end = c(4, 9, 19, 21, 23, 25, 35, 43), 
      col_names = c(
        "YEAR", "SERIAL", "HWTSUPP", "STATEFIP", "MONTH", "PERNUM", "WTSUPP", 
        "INCTOT"
      ), 
      col_types = c(
        "double", "double", "double", "integer", "integer", "double", "double", 
        "double"
      ), 
      trim_ws = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), 
      imp_dec = c(0, 0, 4, 0, 0, 0, 4, 0)
    ), 
    class = c("hip_pos", "tbl_df", "tbl", "data.frame"), 
    row.names = c(NA, -8L)
  )
)

rt_info <- list(start = 0, width = 0, verbose_warning = TRUE)

hipread::hipread_list(
  file = "cps_00006.dat.gz",
  var_info = col_spec,
  rt_info = rt_info,
  encoding = "ISO-8859-1"
)

Sometimes you get an error like

Error in read_list(file, var_names, var_types, rt_info, var_pos_info,  : 
  invalid value

and sometimes your R session crashes.

cps_00006.dat.gz