From 6bfffe9c1ae8c84f0f2ae07cd3c4b00876757587 Mon Sep 17 00:00:00 2001
From: Yihui Xie <xie@yihui.name>
Date: Tue, 6 Sep 2022 17:28:58 -0500
Subject: [PATCH] see if this could avoid the character encoding warning in R
 CMD check (amend 51d17a6a9d3073d2b89685dc7c8381b801cb46fa)

---
 R/parser.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/R/parser.R b/R/parser.R
index b7c1029b62..938b96ab57 100644
--- a/R/parser.R
+++ b/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))