test_sizing_policy.R

## trying to understand sizingPolicy in htmlwidgets
#
#  It seems like viewer.defaultHeight/Width are ignored
#  within RStudio

# testjs package
if(!require(testjs)) {
  library(devtools)
  install_github("kbroman/testjs")
  library(testjs)
}

# some data
set.seed(35538110)
n <- 100
x <- rnorm(n)
grp <- sample(1:3, n, replace=TRUE)
y <- x*grp + rnorm(n)

dat <- list(x=x, y=y, group=grp)

# sizing policy
sp <- htmlwidgets::sizingPolicy(viewer.defaultWidth=200,
                                viewer.defaultHeight=200,
                                viewer.padding=5,
                                viewer.paneHeight=300)

htmlwidgets::createWidget("iplot",
                          list(data=dat, chartOpts=NULL),
                          sizingPolicy=sp, package="testjs")

said the same in the ramnathv/htmlwidgets#78, but in case someone finds this and wants an answer, adding viewer.fill= FALSE to the sizingPolicy should fix this.

# sizing policy
sp <- htmlwidgets::sizingPolicy(viewer.defaultWidth=200,
                                viewer.defaultHeight=200,
                                viewer.padding=5,
                                viewer.paneHeight=300,
                                viewer.fill = FALSE
)