如何获取R中的屏幕分辨率

Question

如何获得以像素为单位的屏幕分辨率（高度、宽度）？

Answer 1

您可以使用命令行界面 WMI

> system("wmic desktopmonitor get screenheight")
ScreenHeight  
900   

您可以使用 system

(scr_width <- system("wmic desktopmonitor get screenwidth", intern=TRUE))
# [1] "ScreenWidth  \r" "1440         \r" "\r"
(scr_height <- system("wmic desktopmonitor get screenheight", intern=TRUE))
# [1] "ScreenHeight  \r" "900           \r" "\r" 

对于多个屏幕，输出例如：

[1] "ScreenWidth  \r" "1600         \r" "1600         \r" ""

我们希望将除第一个和最后一个值之外的所有值转换为数字

as.numeric(c(
  scr_width[-c(1, length(scr_width))], 
  scr_height[-c(1, length(scr_height))]
))
# [1] 1440  900

Answer 2

使用 JavaScript 很简单：您只需

window.screen.height
window.screen.width

使用 SpiderMonkey 包即可从 R 调用 JavaScript href="http://www.omegahat.org/" rel="nofollow noreferrer">OmegaHat。

---

您还可以使用 Java 解决此问题，并使用 < a href="http://cran.r-project.org/web/packages/rJava/index.html" rel="nofollow noreferrer">rJava 包来访问它。

library(rJava)
.jinit()
toolkit <- J("java.awt.Toolkit")
default_toolkit <- .jrcall(toolkit, "getDefaultToolkit")
dim <- .jrcall(default_toolkit, "getScreenSize")
height <- .jcall(dim, "D", "getHeight")
width <- .jcall(dim, "D", "getWidth")

Answer 3

接受的答案不适用于 Windows 8 及更高版本。

使用：

system("wmic path Win32_VideoController get VideoModeDescription,CurrentVerticalResolution,CurrentHorizo​​ntalResolution /format:value")

要以矢量形式获取屏幕分辨率，您可以将其实现为：

  suppressWarnings(
    current_resolution <- system("wmic path Win32_VideoController get CurrentHorizontalResolution,CurrentVerticalResolution /format:value", intern = TRUE)  %>%
      strsplit("=") %>%
      unlist() %>%
      as.double()
  )
  current_resolution <- current_resolution[!is.na(current_resolution)]

现在您将拥有一个矢量长度为 2：

> current_resolution
[1] 1920 1080

Answer 4

在 Windows 上，您可以调用 GetSystemMetrics 传递 SM_CXSCREEN 和 SM_CYSCREEN。这将返回主显示监视器屏幕的宽度/高度（以像素为单位）。

DWORD dwWidth = GetSystemMetrics(SM_CXSCREEN);
DWORD dwHeight = GetSystemMetrics(SM_CYSCREEN);

Answer 5

rpanel 包有一个返回屏幕分辨率的函数：

rpanel::rp.screenresolution()
$width
[1] 1540

$height
[1] 845