check_raw_data <- function(raw_inv) does not work

it modifies raw_inv when there is a variable with a "NA" value, but it is not read correctly by the method read_gen()