输入列的行

时间:2017-06-28 08:02:32

标签: css r for-loop if-statement

我有一个数据框(df),其中有一个列g,其中包含以下数据

g
 1         check
 2    2267631926
 3          <NA>
 4         check
 5         check
 6         check
 7         check
 8         check
 9         check
10         check
11         check
12         check
13         check
14         check
15         check
16         check
17         check
18         check
19    2090125960
20          <NA>
21         check
22         check

我试图仅将数值(2090125960)输入到网络链接中并逐个使用css选择器跳转其他(检查,NA)并按照下一个命令但是,它会粘贴完整的列表。

` for(i in g)
  {

 mybrowser$navigate("https://www.google.com")

fg<- mybrowser$findElement(using = 'css selector',"#lst-ib")
fg$clickElement()
Sys.sleep(1)
fg$sendKeysToElement(i)

Go<- mybrowser$findElement(using = 'css selector',"#tsf > div.tsf-p > div.jsb > center > input[type="submit"]:nth-child(1)")
Go$clickElement()

}`

现在,我尝试在Google搜索栏中输入数值(一次一个)并点击搜索,然后选择第二个值,然后点击搜索。我认为这应该让我怀疑。

我尝试将列转换为因子或数字。任何想法都会有帮助。谢谢。

1 个答案:

答案 0 :(得分:0)

我建议将for循环切换为以下格式。

g <- df[!is.na(suppressWarnings(as.numeric(df$g))),]

for(i in g)
  {
    mybrowser$navigate("https://somelink")

    fg<- mybrowser$findElement(using = 'css selector',"cssselector")
    fg$clickElement()
    Sys.sleep(1)

    fg$sendKeysToElement(list(as.character(i)))

    Go<- mybrowser$findElement(using = 'css selector',"#SubmitButton_button")
    Go$clickElement()

}