如何关闭 url 表单 R？

Question

我试图打开 url 和 close url 以欺骗我的虚拟机以为我在工作。我在 R 中使用 linx os。所以我需要它来打开浏览器，稍等一下，然后 close 浏览器。到目前为止我的代码：

repeat{
 startTime <- Sys.time()
 site <- browseURL("https://youtu.be/_W0bSen8Qjg")
 #does not work
 open(site)
 sleepTime <- startTime + 20 *60*60*60 -Sys.time()
 #does not work
 close(site) 
 if (sleepTime >0)
   Sys.sleep(sleepTime)
}

我不知道如何制作浏览器 close。任何想法或想法都会有所帮助。

Answer 1

很棒的项目:)

我建议使用 library(processx)，因为它允许我们从 R 中控制启动的进程。See ?process。

我在 windows 10 上对此进行了测试，但它在 linux 上应该以类似的方式工作（在调整路径之后）：

library(processx)

while (TRUE) {
  myProcess <- process$new("C:/Program Files (x86)/Google/Chrome/Application/chrome.exe", "https://whosebug.com/")
  # myProcess$is_alive()
  # myProcess$get_pid()
  Sys.sleep(10)
  try(myProcess$kill(), silent = TRUE)
}

这是托管闪亮应用程序的另一种方法，它每 10 秒打开一个新的 window（并关闭前一个会话）：

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  p("My dummy app")
)

server <- function(input, output, session) {
  observe({
    Sys.sleep(10)
    runjs("window.close();")
    browseURL("http://127.0.0.1:3838/")
  })
}

myDummyApp <- shinyApp(ui, server)

runApp(appDir = myDummyApp,
        port = 3838,
        launch.browser = TRUE,
        host = "127.0.0.1")

Answer 2

此外，我们可以只用基本的东西来解决问题；）

a <- "TRUE"
while(a == TRUE){
    browseURL("https://whosebug.com", 
             browser = "C:\Program Files\Internet Explorer\iexplore.exe")
Sys.sleep(10)
system ("TASKKILL /IM iexplore*")
}

如何关闭 url 表单 R？

How to close a url form R?

browser

r