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は、セッションが中止されるまで「関数定義を検索する」と言います。