通过SSH远程使用R时如何自动检测正确的X11本地显示配置

方案1：R函数实现自动设置DISPLAY #

以下是可直接放到.Rprofile中使用的函数，采用无弹窗的xdpyinfo做显示可用性检测，不会弹出多余窗口，同时支持读取登录时自动保存的最新DISPLAY值，准确率比遍历探测更高：

resetDisplay <- function() {
  # 检测指定DISPLAY是否可用的内部函数
  check_display <- function(disp) {
    Sys.setenv(DISPLAY = disp)
    # 调用xdpyinfo检测，超时1秒无响应则判定不可用，无多余输出
    return(system("xdpyinfo > /dev/null 2>&1", timeout = 1) == 0)
  }
  
  # 优先读取ssh登录时保存的最新DISPLAY值
  if (file.exists("~/.current_display")) {
    saved_disp <- readLines("~/.current_display", n = 1, warn = FALSE)
    if (check_display(saved_disp)) {
      message("成功设置DISPLAY为: ", saved_disp)
      return(invisible(TRUE))
    }
  }
  
  # 无保存值时遍历常用显示编号探测
  for (i in 0:20) {
    test_disp <- sprintf(":%d.0", i)
    if (check_display(test_disp)) {
      message("成功设置DISPLAY为: ", test_disp)
      return(invisible(TRUE))
    }
  }
  
  warning("未找到可用的X11显示设备")
  return(invisible(FALSE))
}

# 启动R时自动执行设置
resetDisplay()

要搭配自动保存最新DISPLAY的逻辑，可在集群端的~/.bashrc或~/.zshrc（对应你使用的shell配置文件）中添加一行：

echo $DISPLAY > ~/.current_display

每次重新ssh登录集群时，会自动把最新的DISPLAY值写入固定文件，R函数可以直接读取使用，无需遍历探测。

方案2：从SSH和tmux层面解决根本问题（无需每次在R中设置） #

• SSH默认开启X11转发：编辑集群端的~/.ssh/config（不存在则新建），添加以下配置，之后登录无需再加-Y参数：

Host *
  ForwardX11 yes
  ForwardX11Trusted yes

• tmux自动同步DISPLAY变量：编辑集群端的~/.tmux.conf（不存在则新建），添加以下配置，重新attach tmux后，新开窗口/面板的DISPLAY会自动同步为最新ssh连接的值，无需手动修改：

set -g update-environment "DISPLAY SSH_AUTH_SOCK SSH_CONNECTION XAUTHORITY"

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