r-rudra/tidycells

Detect screen resolution for better widget preview

bedantaguru opened this issue · 0 comments

bedantaguru commented

This is for

tidycells/R/shiny_main.R

Line 22 in 3ddcdf6

viewer <- dialogViewer(title,

This may be implemented later if required.

Thanks to this SO

Following code works well :

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