填写表格R，不含硒

我需要填写页面的月份和年份字段：

通过这一点，我已经在Rselenium中编程了以下内容，并且可以正常工作

#library
library(RSelenium)

#browser parameters
mybrowser<-remoteDriver(browserName = "chrome")
mybrowser$open(silent = TRUE)
mybrowser$setTimeout(type = "page load", milliseconds =1000000)
mybrowser$setImplicitWaitTimeout(milliseconds = 1000000)
url<-paste("http://www.svs.cl/institucional/mercados/entidad.php?mercado=S&rut=99588060&grupo=&tipoentidad=CSVID&row=AABaHEAAaAAAB7uAAT&vig=VI&control=svs&pestania=3",sep="")

#start navigation
  mybrowser$navigate(url)
  webElem$clickElement()
  wxbox<-mybrowser$findElement(using="class","bordeInput2")
  wxbox$sendKeysToElement(list("09"))
  wxbox<-mybrowser$findElement(using="id","aa")
  wxbox$sendKeysToElement(list("2016"))
  wxbutton<-mybrowser$findElement('xpath',"//*[@id='fm']/div[2]/input")
  wxbutton$clickElement()

#库
图书馆（资源库）
#浏览器参数
mybrowser您可以简单地
发布到URL，如下所示：

require(rvest)
require(httr)
a <- POST("http://www.svs.cl/institucional/mercados/entidad.php",
     # Body = what you fill in the form
     body = list(mm = 09, aa = 2016),
     # query = the long URL broken into parameter
     query = list(mercado="S",
                  rut="99588060",
                  grupo="",
                  tipoentidad="CSVID",
                  row="AABaHEAAaAAAB7uAAT",
                  vig="VI",
                  control="svs",
                  pestania="3"))

read_html(a) %>% html_nodes("dd") %>% html_text %>% 
  setNames(c("Business name", "RUT"))

您只需将
发布到URL，如下所示：

require(rvest)
require(httr)
a <- POST("http://www.svs.cl/institucional/mercados/entidad.php",
     # Body = what you fill in the form
     body = list(mm = 09, aa = 2016),
     # query = the long URL broken into parameter
     query = list(mercado="S",
                  rut="99588060",
                  grupo="",
                  tipoentidad="CSVID",
                  row="AABaHEAAaAAAB7uAAT",
                  vig="VI",
                  control="svs",
                  pestania="3"))

read_html(a) %>% html_nodes("dd") %>% html_text %>% 
  setNames(c("Business name", "RUT"))

你好，非常感谢你的回答。碰巧，您会知道如何获取页面上的表格，例如名为“ESTADO DE SITUACIÓN Financiaera INDIVIDUAL-EXPRESADO EN MILES DE PESOS”的表格查看一下
？html_表格
是的，我尝试了以下代码：“aHi，非常感谢你的回答^^。碰巧，您会知道如何获取页面上的表格，例如，名为“ESTADO DE SITUACIÓN Financiaera INDIVIDUAL-EXPRESADO EN MILES DE PESOS”的表格查看一下
？html_表格
是的，我尝试了以下代码：“a
             Business name                        RUT 
"ACE SEGUROS DE VIDA S.A."               "99588060-1"