1

正如petermeissner在这个线程中解释的那样，我尝试使用任务调度程序在Windows 8中自动运行R脚本。下面我粘贴了（部分）脚本。该脚本执行所有操作，直到remDr$getPageSourece(). 我收到一条弹出消息，提示“R for Windows 前端已停止工作”。但是，如果我在 R 中运行脚本（因此不使用调度程序），则不会发生错误。什么可能是错的？

pacman::p_load(RSelenium)
appurl <- "https://prod.beeline.com/ucb/Security/NewLogin.aspx?Url=%2fucb"
setwd("../downloaded")

RSelenium::checkForServer()
RSelenium::startServer()

Sys.sleep(5) 

remDr <- RSelenium::remoteDriver(browserName="chrome") #For chrome make sure the file 'chromedriver is under 'downloaded'. Also this file can be found on TFS

remDr$open(silent=T)
remDr$navigate(appurl) 
Sys.sleep(1)
remDr$findElement(using = "css selector","#beelineForm_UserLoginForm_userNameText")$sendKeysToElement(list("username"))
Sys.sleep(1)
remDr$findElement(using = "css selector","#beelineForm_UserLoginForm_passwordText")$sendKeysToElement(list("passwd"))
remDr$findElement("css selector", "#loginButton")$clickElement() 

appurlNew <- "https://prod.beeline.com/ucb/Procurement/Request/ProcurementRequestListScreen.ascx"
Sys.sleep(1)

remDr$navigate(appurlNew)
Sys.sleep(3)

x <- getwd()
write(x, file="workingdir1.txt")

remDr$getPageSource()

编辑：我尝试在 R 中重新运行脚本，现在它似乎也在remDr$getPageSource(). R 说它“搜索函数定义”，直到会话中止。

4

0 回答 0