小编adh*_*hok的帖子

我已经包含了一个最小的例子.有一个download按钮,点击后应下载闪亮的应用程序截图作为PDF格式.代码如下.

library(shiny)
server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs), col = 'darkgray', border = 'white')
  })

}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("obs", "Number of observations:", min = 10, max = 500, value = 100),
      actionButton("btn", "Download")

    ),
    mainPanel(plotOutput("distPlot"))
  )
)

shinyApp(ui = ui, server = server)

提前致谢!

我正在尝试访问http://www.google.com并使用RSelenium获取其屏幕截图。软件包安装和网站访问的代码如下。

devtools::install_github('ropensci/RSelenium')
install.packages('wdman')

library(RSelenium)

library(wdman)
cDrv <- chrome()
eCaps <- list(chromeOptions = list(
  args = c('--headless', '--disable-gpu', '--window-size=1280,800')
))
remDr<- remoteDriver(browserName = "chrome", port = 4567L, 
                     extraCapabilities = eCaps)
remDr$open()
remDr$navigate("http://www.google.com")
remDr$screenshot(display = TRUE,file = 'test.png')

# clean up
remDr$close()
cDrv$stop()

该运行的会话信息如下。

R version 3.4.0 (2017-04-21)
    Platform: x86_64-apple-darwin15.6.0 (64-bit)
    Running under: OS X El Capitan 10.11.6

    Matrix products: default
    BLAS: /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
    LAPACK: /Library/Frameworks/R.framework/Versions/3.4/Resources/lib/libRlapack.dylib

    locale:
    [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

    attached base packages:
    [1] stats     graphics  grDevices utils     datasets  methods   base     

    other …