R, Rexcel, erstellen Makro, das zählt Wörter in und Excel Arbeitsblatt

Question

Ich habe folgende Makro mit der Verwendung von Rexcel, die nicht funktioniert. Ich habe eine Liste von Wörtern im Bereich A1: A2 (mydf) und ich möchte das Auftreten eines bestimmten Wortes (Hallo) zählen, aber folgende funktioniert nicht gut. Könnte mir jemand helfen, das zu verstehen?

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

folgenden Code ist die richtige Antwort:

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