testes/check_overlapping.R

In lucasmation/microdadosBrasil: Reads most common Brazilian public microdata (CENSO, PNAD, etc) easy and fast

c <-  data.frame()

for(dataset in get_available_datasets()){
    for(i in get_available_periods(dataset, fwfonly = TRUE)){
      for(ft in get_available_filetypes(dataset,i))


       print(i)
       print(ft)
      d<- data.frame(
                 `dataset` = dataset,
                 `i` = i,
                 `ft` = ft,
                 overlapping = check_overlapping(get_import_dictionary(dataset,i,ft)), stringsAsFactors = FALSE)

      d[,]<- lapply(d[,], as.character)

      c<- bind_rows(c, d
      )

    }


}


c$overlapping %>% as.logical() %>% as.numeric %>% sum()
(filter(c, overlapping == "TRUE"))