Minor tweaks in an attempt to make
encoding(mycorpus)[1] <- "1stROW"
work (made notes but not solved yet).