You could use commad-line interface to WMI
> system("wmic desktopmonitor get screenheight")
ScreenHeight
900
You could capture result with system
(scr_width <- system("wmic desktopmonitor get screenwidth", intern=TRUE))
# [1] "ScreenWidth
" "1440
" "
"
(scr_height <- system("wmic desktopmonitor get screenheight", intern=TRUE))
# [1] "ScreenHeight
" "900
" "
"
With multiple screens, the output is, e.g.,
[1] "ScreenWidth
" "1600
" "1600
" ""
We want all but the first and last values, converted to numbers
as.numeric(c(
scr_width[-c(1, length(scr_width))],
scr_height[-c(1, length(scr_height))]
))
# [1] 1440 900
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…