RSelenium始终显示重定向_R_Rselenium

RSelenium始终显示重定向

RSelenium始终显示重定向,r,rselenium,R,Rselenium,我试图重复RSelenium remoteDriver帮助主题中显示的示例代码。正如您可以从注释掉的响应中看到的，我得到了一个重定向，每个RSelenium函数都得到了相同的响应。我如何克服这个问题 startServer() remDr <- remoteDriver$new() remDr$open() # [1] "Connecting to remote server" # [[1]] # [1] "<HTML>\r\n<HEAD><TITLE>

我试图重复

RSelenium remoteDriver

帮助主题中显示的示例代码。正如您可以从注释掉的响应中看到的，我得到了一个重定向，每个RSelenium函数都得到了相同的响应。我如何克服这个问题

startServer()
remDr <- remoteDriver$new()
remDr$open()
# [1] "Connecting to remote server"
# [[1]]
# [1] "<HTML>\r\n<HEAD><TITLE>Redirection</TITLE></HEAD>\r\n<BODY><H1>Redirect</H1></BODY>\r\n"
# 
# $id
# [1] NA

remDr$navigate("http://www.r-project.org")
remDr$getPageSource()
# [[1]]
# [1] "<HTML>\r\n<HEAD><TITLE>Redirection</TITLE></HEAD>\r\n<BODY><H1>Redirect</H1></BODY>\r\n"
# remDr$findElements(value = "//frame")
# [[1]]
# [1] "remoteDriver fields"
# $remoteServerAddr
# [1] "localhost"
# 
# $port
# [1] 4444
# 
# $browserName
# [1] "firefox"
# 
# $version
# [1] ""
# 
# $platform
# [1] "ANY"
# 
# $javascript
# [1] TRUE
# 
# $autoClose
# [1] FALSE
# 
# $nativeEvents
# [1] TRUE
# 
# $extraCapabilities
# list()
# 
# [1] "webElement fields"
# $elementId
# [1] "<HTML>\r\n<HEAD><TITLE>Redirection</TITLE></HEAD>\r\n<BODY><H1>Redirect</H1></BODY>\r\n"

有什么建议吗？

代理信息需要通过

extraccapabilities

作为列表传递。这个给出了代理所采用的形式的文档

extraCapabilities代理信息需要通过extraCapabilities作为列表传递。这个
给出了代理所采用的形式的文档
extraCapabilities谢谢你的建议。不幸的是，我尝试了此操作，但在命令remDr$open（）
之后仍然得到了[[1]][1]“\r\nDirection\r\nDirect\r\n”
的响应。我还尝试了很多代理url的变体，还有http或https。如果是后者，则需要设置sslProxy而不是httpProxy。这是做这件事的方法。这只是一个获得正确结构的问题。如何判断Selenium服务器是否正在运行？运行此命令后：RSelenium:：startServer（）
R中没有响应。如果我查看Windows任务管理器，则没有明显的Windows进程正在运行……感谢您的建议。不幸的是，我尝试了此操作，但在命令remDr$open（）
之后仍然得到了[[1]][1]“\r\nDirection\r\nDirect\r\n”
的响应。我还尝试了很多代理url的变体，还有http或https。如果是后者，则需要设置sslProxy而不是httpProxy。这是做这件事的方法。这只是一个获得正确结构的问题。如何判断Selenium服务器是否正在运行？运行此命令后：RSelenium:：startServer（）R中没有响应。如果我查看Windows任务管理器，则没有明显的Windows进程正在运行。。。
set_config(use_proxy(url = "http://proxy-server.mycompany.com:8080"))

extraCapabilities <- list(proxy = list(proxyType = "manual"
                                       , httpProxy = "http://proxy-server.mycompany.com:8080")
                          )
remDr <- remoteDriver(extraCapabilities = extraCapabilities)