为什么这个循环不起作用?

时间:2018-05-09 14:35:43

标签: r loops

我有不同的数据框,具有相同的数字和列名。我想将所有dfm中的相同变量从character转换为factor。我试着这样做,但没有成功。

Public Sub STOCKQUOTE()

    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")

    Const sURL As String = "https://api.robinhood.com/quotes/?symbols=AMZN"
    http.Open "GET", sURL, False
    http.send

    Dim jsonResponse As Dictionary
    Set jsonResponse = JsonConverter.ParseJson(http.responseText)

    MsgBox (jsonResponse("results")(1)("last_trade_price"))

End Sub

我做错了什么?

2 个答案:

答案 0 :(得分:1)

您需要使用assign(i, df)而不是assign(names[i], df)

虽然,有更好的方法可以做到这一点,你可以避免for循环。 例如,使用lapply:

dfs <- list(fa.7,fa.8)
listFactorDFs <- lapply(
  dfs,
 function(i){
    i$IID <- as.factor(i$IID)
    i
  }
)

答案 1 :(得分:0)

看起来您正在尝试将数据类型因子分配给最初为字符的向量元素。我对吗?如果是这种情况,下面的代码就会以非常简单的方式完成。如果它回答了你的问题,请告诉我。

driver.findElement(By.xpath("//ul[@class='tabs']//li[@id='invoiceMenu']")).click();