R/clean_naresponses.R

In gandalfnicolas/SADCAT: Dictionary creation with stereotype content dictionaries

#' @title Clean na responses
#'
#' @description This function allows you to change responses that indicate lack of knowledge into NA.
#' @param word word to clean, if multiple use loop/apply/dplyr
#' @return responses changed to NA when indicating lack of knowledge
#' @export clean_naresponses


clean_naresponses = function(word){
  ifelse(word == "" | word == "N	A" | word == "NA" |	word == " " | word =="#N/A" | word == "n/a" | word == 'N/A' | word == 'na' | word == 'an' | word == 'no' | word == 'idk' | word == "nas" | word =="dont know" | word == "don't know"| word == "?",return(NA),return(word))}