data <-data.frame(pais = c("Colombia", "Honduras", "El Salvador"), valor = c("3193", "2321", "2123"))
ht_data <- hdtb::hdtable(data, dic = dic)
dic <- ht_data$dic
dic
> ht_data$dic
table id label hdt ordinal_position data_type fld___id
1 data pais pais Cat 1 VARCHAR nzbuxdjn
2 data valor valor Cat 2 VARCHAR i11qf3ak