see if this could avoid the character encoding warning in R CMD check (amend 51d17a6)

Author: yihui

R/parser.R

@@ -222,13 +222,12 @@ comment_chars = list(
   `* ;` = c('sas'),
   `--` = c('haskell', 'lua', 'mysql', 'psql', 'sql'),
   `!` = c('fortran', 'fortran95'),
-  '\u235D' = c('apl'),
   `*` = c('stata')
 )
 # reshape it using the language name as the index, i.e., from list(char = lang)
 # to list(lang = char)
 comment_chars = local({
-  res = list()
+  res = list(apl = '\u235D')
   for (i in names(comment_chars)) {
     chars = comment_chars[[i]]
     res = c(res, setNames(rep(list(strsplit(i, ' ')[[1]]), length(chars)), chars))