r - Shiny 应用程序中的 RSelenium:无法将 html 从浏览器中拉出
问题描述
我正在尝试创建一个闪亮的应用程序,当单击按钮时打开 Web 浏览器,然后单击“刷新”按钮时,从任何站点加载 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)
解决方案
推荐阅读
- android - 如何将密码保存到手机上
- dataweave - 如何使用 Dataweave 2.0 从有效负载中获取数组中的值对象
- powershell - Mesmo importando Módulo no PowerShell - Comando não é reconhecido
- javascript - Express 验证器 isIn 功能无法正常工作
- python - 为自然语言处理建立数据结构朴素贝叶斯分类器
- c# - c#中空参数的自定义异常
- javascript - 有没有办法从 JavaScript 中的类方法中解构返回值
- html5-audio - 在录制 HTML 音频时避免爆裂声和咔嗒声
- flutter - StreamController Bad State:Stream 已经被监听
- iframe - 使用带有protect_from_forgery前置的iframe:true