library(dygraphs) library(widgetframe) ts <- dygraph(nhtemp, main = "New Haven Temperatures") frameWidget(ts, height = 350, width = '95%')