我无法在特定页面中使用R硒

Question

当Rselenium遇到此URL时，它会卡住，如果我切换到其他网页，它会好的。您可以看到下面的代码“getCurrentUrl”&“getPageSource”是最基本的操作。

url = "https://sycm.taobao.com/custom/login.htm?_target=http://sycm.taobao.com/" 


# Build up the environment ----------------------------------------------------- 
library(RSelenium) 
library(wdman) 
pDrv <- phantomjs(port = 4567L) 
remDr <- remoteDriver(browserName = "firefox", port = 4567L) 
remDr$open() 
remDr$navigate(url) 


#show the page ----------------------------------------------------------------- 

remDr$maxWindowSize() 
remDr$screenshot(display = TRUE) 

# basic operation by seleniumR 
remDr$getCurrentUrl() 
remDr$getPageSource()[[1]] 

Answer 1

工程与谷歌浏览：

appUrl <- "https://sycm.taobao.com/custom/login.htm?_target=http://sycm.taobao.com/" 


# Build up the environment ----------------------------------------------------- 
library(RSelenium) 

rD <- rsDriver() 
remDr <- rD$client 
remDr$navigate(appUrl) 


#show the page ----------------------------------------------------------------- 

remDr$screenshot(display = TRUE) 

# basic operation by seleniumR 
remDr$getCurrentUrl() 
remDr$getPageSource()[[1]] 

rm(rD) 
gc() 

而对于Firefox的：

appUrl <- "https://sycm.taobao.com/custom/login.htm?_target=http://sycm.taobao.com/" 
# Build up the environment ----------------------------------------------------- 
library(RSelenium) 

rD <- rsDriver(browser = "firefox") 
remDr <- rD$client 
remDr$navigate(appUrl) 

#show the page ----------------------------------------------------------------- 

remDr$maxWindowSize() 
remDr$screenshot(display = TRUE) 

# basic operation by seleniumR 
remDr$getCurrentUrl() 
remDr$getPageSource()[[1]] 
rm(rD) 
gc()