empty_string_to_na <- function(string) {
  if(nchar(string)==0){NA}else{string}
}