加载功能出错

Question

我是R的新手，我试图这样做：

Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists("C:\Users\User\Desktop\run.log") Then
        Dim InputFile
        Dim oFile
        Dim ReadAll
        Dim data
        InputFile = "C:\Users\User\Desktop\run.log"
        Set oFile = objFSO.OpenTextFile(InputFile)
        data = oFile.ReadAll
        Set sum = "data + 1"
        oFile.Close
        objFSO.DeleteFile("C:\Users\User\Desktop\run.log")
        outFile="C:\Users\User\Desktop\run.log"
        Set objFile = objFSO.CreateTextFile(outFile,True)
        objFile.Write "sum"
        objFile.Close
    Else
        outFile="C:\Users\User\Desktop\run.log"
        Set objFile = objFSO.CreateTextFile(outFile,True)
        objFile.Write "1"
        objFile.Close
    End If

但是给了我这个错误：

fbOAuth(fb_appid,fb_appsec, extended_permissions = TRUE, legacy_permissions = FALSE)

fb_oauth <- fbOAuth(fb_appid,fb_appsec, extended_permissions = TRUE, legacy_permissions = FALSE)

save(fb_oauth, file="C:/Program Files/R/fb_oauth")

load("fb_oauth")

我该如何纠正这个？