Не удается открыть документ HTM в Word

вам нужно вернуть полный объект x, а не только результат вашего назначения (это строка missing).

changeLevel1 <- function(x){
   levels(x)[which(levels(x) == 'a')] <- 'missing'
   return (x)
}