如何指定RStudio创建的Shiny查看器窗口宽高？设置无效求助

别担心，我来帮你搞定这个窗口尺寸的问题！你之前尝试的options=list(width=1600)没效果，是因为这个参数并不是用来设置启动窗口大小的，咱们换几种靠谱的方式试试：

方法1：用runApp()自定义浏览器启动逻辑 #

其实shinyApp()最终也是调用runApp()来启动应用，咱们可以直接给runApp()的launch.browser参数传一个自定义函数，精准控制窗口大小：

library(shiny)

# 你的UI内容
ui <- fluidPage(
  h1("测试自定义窗口大小")
)

# 你的服务器逻辑
server <- function(input, output) {}

# 自定义浏览器启动函数（以Chrome为例）
custom_launch <- function(url) {
  # Windows系统
  shell.exec(paste0('"C:\\Program Files\\Google\\Chrome\\Application\\chrome.exe" --window-size=1600,900 ', url))
  
  # 如果是Mac系统，替换成下面这行
  # system(paste0('open -a "Google Chrome" --args --window-size=1600,900 ', url))
  
  # 要是想用RStudio内置Viewer，就用这行（需安装rstudioapi包）
  # rstudioapi::viewer(url, width = 1600, height = 900)
}

# 启动应用
runApp(shinyApp(ui, server), launch.browser = custom_launch)

不同浏览器的命令行参数略有差异：Chrome用--window-size=宽,高，Firefox用--width=宽 --height=高，你可以根据常用浏览器调整。

方法2：在UI中嵌入JavaScript自动调整 #

这种方法更通用，不用依赖特定浏览器或系统，在UI里加一段JS代码，页面加载时自动调整窗口：

library(shiny)

ui <- fluidPage(
  # 嵌入调整窗口的JS代码
  tags$script(HTML("
    window.addEventListener('load', function() {
      window.resizeTo(1600, 900); // 这里替换成你想要的宽高
    });
  ")),
  
  # 你的UI内容
  h1("用JS自动设置窗口大小")
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

注意：部分现代浏览器出于安全限制可能会阻止自动调窗，遇到这种情况可以提示用户手动允许，或者结合第一种方法使用。

方法3：修改RStudio全局设置（针对内置Viewer） #

如果你习惯用RStudio的内置Viewer窗口，直接改全局设置一劳永逸：

• 打开RStudio的Tools -> Global Options -> Shiny
• 在Viewer选项里选择Custom，输入你想要的宽高（比如1600x900）
• 点击OK保存，下次启动Shiny应用就会默认用这个尺寸打开了

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