R中.Rprofile正常加载时DB2/AS400 ODBC连接异常及RODBC编码问题

安装gdata包后，R连接DB2/AS400的ODBC出现异常，清理所有R相关文件重新配置后问题仍存在：

• 当.Rprofile无错误加载时，DB2/AS400的ODBC连接对象为空（外部ODBC连接正常）；
• 若.Rprofile加载报错，DBI/odbc和旧版RODBC的连接均可正常工作；
• DB2/AS400底层CCSID为278；
• DBI/odbc通过指定CCSID=1252可正常建立连接，但RODBC设置DBMSencoding="1252"无效；
• 已确认问题出在R端，其他环境ODBC连接正常；
• 会话信息：

version 4.2.0 Patched (2022-05-12 r82348 ucrt)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19044)

Matrix products: default

locale:
[1] LC_COLLATE=Swedish_Finland.1252  LC_CTYPE=Swedish_Finland.1252    LC_MONETARY=Swedish_Finland.1252
[4] LC_NUMERIC=C                     LC_TIME=Swedish_Finland.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] odbc_1.3.3 DBI_1.1.3 

loaded via a namespace (and not attached):
 [1] bit_4.0.4       compiler_4.2.0  ellipsis_0.3.2  cli_3.4.1       hms_1.1.2       tools_4.2.0    
 [7] Rcpp_1.0.9      bit64_4.0.5     vctrs_0.4.2     blob_1.2.3      lifecycle_1.0.3 pkgconfig_2.0.3
[13] rlang_1.0.6    

一、.Rprofile无错加载时的初始化问题排查 #

1. 排查gdata包的影响
   gdata包的初始化代码（或其依赖包）可能修改了ODBC相关的系统环境或R的全局设置。可以先在.Rprofile中注释掉gdata的加载语句，测试连接是否恢复正常，逐步定位是否为gdata导致的冲突。

2. 检查全局编码与ODBC环境变量
   .Rprofile中可能设置了全局编码选项（如options(encoding="xxx")），或修改了ODBC相关环境变量（如ODBCINI、ODBCSYSINI），导致R与DB2/AS400的CCSID协商失败。可以在.Rprofile末尾添加以下代码，对比加载正常和报错时的输出差异：

   print(Sys.getenv(c("ODBCINI", "ODBCSYSINI")))
   print(getOption("encoding"))
   

3. 排查其他包的冲突
   .Rprofile中加载的其他包可能与ODBC/RODBC存在依赖冲突，比如覆盖了DBI的默认驱动设置或ODBC连接参数。逐一注释.Rprofile中的包加载语句，定位具体的冲突包。

二、RODBC指定编码的有效方法 #

1. 在ODBC数据源配置中指定CCSID
   打开Windows的ODBC数据源管理器，找到对应的DB2/AS400 DSN，进入配置界面手动设置CCSID为1252。部分DB2 ODBC驱动会优先使用数据源配置的编码，忽略RODBC的DBMSencoding参数。

2. 使用odbcDriverConnect直接传递连接参数
   绕过odbcConnect的参数限制，直接在连接字符串中指定CCSID：

   con3 <- odbcDriverConnect("DSN=mydb;UID=myuser;PWD=mypwd;CCSID=1252")
   

3. 临时调整R的locale
   在建立RODBC连接前，临时切换LC_CTYPE为与1252兼容的locale，再恢复原设置：

   original_locale <- Sys.getlocale("LC_CTYPE")
   Sys.setlocale("LC_CTYPE", "English_United States.1252")
   con3 <- odbcConnect(dsn = "mydb", uid = "myuser", pwd = "mypwd")
   Sys.setlocale("LC_CTYPE", original_locale)
   

4. 更新RODBC版本
   旧版RODBC对DB2/AS400的CCSID支持可能存在缺陷，尝试更新RODBC到兼容R 4.2.0的最新稳定版，查看官方文档中关于DB2编码的特殊参数说明。

内容的提问来源于stack exchange，提问作者ErrantBard