画面の解像度を得るにはR

Question

画面の解像度（高さ、幅）をピクセルで取得するにはどうすればよいですか？

Answer 1

あなたが複数の画面で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" "" 

私たちは、最初と最後の値が、すべてが欲しい、後でのWindows 8とでは動作しません答えを受け入れ番号

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

Answer 2

GetSystemMetricsはSM_CXSCREENとなり、SM_CYSCREENとなります。これは、プライマリディスプレイモニタの画面の幅/高さをピクセル単位で返します。

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

Answer 3

それはJavaScriptを使用して簡単です：ちょうど

window.screen.height 
window.screen.width 

を行うあなたはOmegaHatからSpiderMonkeyパッケージを使用してRからJavaScriptを呼び出すことができます。

---

あなたは可能性もsolve this with Java、およびそれにアクセスするためのrJavaパッケージを使用します。あなたがWMI

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

にcommadラインインターフェイスを使用することができ

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 4

に変換します。

使用この：

system("wmic path Win32_VideoController get VideoModeDescription,CurrentVerticalResolution,CurrentHorizontalResolution /format:value")

あなたはベクトルの解像度を選別取得するには、あなたのようにそれを実装することができます：今、あなたは長さ2とのベクトルを持っているでしょう

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)] 

：

> current_resolution 
[1] 1920 1080