Shiny 应用程序中的 RSelenium：无法从浏览器中提取 html

问题描述

我正在尝试创建一个闪亮的应用程序，该应用程序在单击按钮时打开网络浏览器，然后在单击“刷新”按钮时，从任何站点加载 html。这是一个更高级项目的概念证明，但我无法让它工作。有时浏览器在30秒后关闭（不是因为超时），但主要问题是刷新按钮没有更新显示的文本；整个应用屏幕变灰。

library('shiny')
library('RSelenium')
library('dplyr')
library('rvest')

ui <- fluidPage(
  
  # Application title
  titlePanel("Title"),sidebarLayout(
    sidebarPanel(
      actionButton('open_browser','Open browser'),actionButton('refresh_html','Refresh')
    ),mainPanel(
      textoutput("text")
    )
  )
)

server <- function(input,output) {
  
  values<-reactiveValues()
  values$message_text<-'Open browser to begin'
  
  observeEvent(input$open_browser,{
    system("taskkill /im java.exe /f")
    rD <- rsDriver(browser="chrome",port=4566L,verbose=F,chromever = "90.0.4430.24")
    remDr <- rD[["client"]]
    remDr$navigate('https://google.com')
  })
  
  observeEvent(input$refresh_html,{
    html <- driver$getPageSource()[[1]]
    values$message_text<-read_html(html) %>% as.character()
  })
  
  output$text <- renderText({
    values$message_text
  })
}

shinyApp(ui = ui,server = server)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

r r rselenium shiny