R语言脚本无法保存，如下图

Question

R语言脚本无法保存，保存脚本时，提示没有后缀，save点击无效，新组装机，是需要什么驱动吗

Answer 1

让阿豪来帮你解答，本回答参考chatgpt3.5编写提供，如果还有疑问可以评论或留言

问题描述： 在R语言编译器中，无法保存脚本文件，提示没有后缀，并且点击“save”按钮没有任何反应。这个问题可能与新购买的组装机有关，需要确定是否需要安装驱动程序。 解决方案： 这个问题可能是因为缺少必要的驱动程序导致的。用户可以检查计算机设备管理器中是否有任何黄色感叹号或问题标志。如果有，则说明计算机需要安装相应的驱动程序。用户可以在制造商的网站上找到并下载适合自己计算机的驱动程序。如果驱动程序已安装，请尝试重新安装或更新它们。 另外，为了解决无法保存R语言脚本的问题，可以尝试以下方法：

1. 检查文件保存路径是否正确，例如，可能存在文件名或文件夹名称中包含非法字符或空格的情况，需要将其修复；
2. 检查R语言编译器是否有足够的权限来保存文件。确保用户帐户拥有对所在目录的适当权限；
3. 尝试左键单击“Save”按钮打开保存对话框之前，先选择“File” -> “New script”命令来创建一个新的脚本文件，然后将原来的脚本复制到新文件中并尝试保存。 示例代码： 假设用户在Windows上安装了R语言，但无法保存脚本文件。它可能是因为用户的计算机缺少必要的系统驱动程序。下面的代码可以检查Windows设备管理器中是否存在任何问题：

# 检查设备管理器是否有问题标记
isProblem <- function() {
  system("set DEVMGR_SHOW_NONPRESENT_DEVICES=1")
  Sys.sleep(0.5)
  result <- !is.na(system2("set cmd=", 
        args=c("&&", "start", "/w", "devmgmt.msc")))
  if (result) {
    dev.presence <- system2('powershell', args='-Command \"Get-PnpDevice -PresentOnly | Where-Object {$_.Status -eq "Error"}\"', stdout = TRUE)
    if (dev.presence == "") {
      return(FALSE)
    } else {
      print("请检查设备管理器中是否存在以下问题：")
      cat(dev.presence)
      return(TRUE)
    }
  } else {
    cat("无法打开设备管理器。")
    return(FALSE)
  }
}
isProblem()

代码中，使用system()和system2()函数来调用Windows操作系统的命令行脚本。通过set DEVMGR_SHOW_NONPRESENT_DEVICES=1设置环境变量以显示未连接设备的状态，并通过启动devmgmt.msc窗口在脚本中打开设备管理器。然后使用PowerShell命令获取发现的设备相关信息。如果发现有任何错误，则将其打印到控制台上。