r - R、Rexcel、エクセルワークシートの単語数をカウントするマクロを作成

Question

動作しない Rexcel を使用した次のマクロがあります。範囲 A1:A2 (mydf) の単語のリストがあり、特定の単語 (hello) の出現回数をカウントしたいのですが、うまくいきません。誰かが私を理解するのを手伝ってもらえますか?

Sub findwords()
Worksheets("Sheet1").Activate
rinterface.StartRServer
rinterface.PutDataframe "mydf", Range("Sheet1!A1:A200")
rinterface.RRun "a <- length(grep(hello, mydf))"
rinterface.PutArray "a", Range("Sheet1!B2:B50")

End Sub

Answer 1

次のコードは正しい答えです:

Sub findwords()
  MsgBox "finding the word hello"
  Rinterface.StartRServer
  Rinterface.PutArray "mydf", Range("Sheet1!A1:A200")
  Rinterface.RRun "a <- length(grep('hello', mydf))"
  Rinterface.GetArray "a", Range("Sheet1!B1")
End Sub