閃亮的應用程序不工作Shinyapps.io

我有我的閃亮申請一塊R代碼裏面，基本上觸發運行在一個excel宏shell腳本：閃亮的應用程序不工作Shinyapps.io

path_to_vbs_file = "www/Macro_Trigger.vbs" 
shell(shQuote(normalizePath(path_to_vbs_file)), "cscript", flag = "//nologo")

該.vbs代碼：

Option Explicit 

ExcelMacroExample 

Sub ExcelMacroExample() 

    Dim xlApp 
    Dim xlBook 
    Dim fso 
    Dim curDir 

    Set xlApp = CreateObject("Excel.Application") 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    curDir = fso.GetParentFolderName(wscript.ScriptFullName) 
    Set xlBook = xlApp.Workbooks.Open(curDir & "\KPI_Report.xlsm", 0, False) 
    xlApp.Application.Visible = False 
    xlApp.DisplayAlerts = False 
    xlApp.Run "ConvertTextToNumber" 
    xlApp.ActiveWorkbook.SaveAs curDir & "\KPI_Report.xlsm" 

    xlApp.ActiveWorkbook.Close 
    xlApp.Quit 

    Set xlBook = Nothing 
    Set xlApp = Nothing 

End Sub

該代碼在本地Windows操作系統上正常工作，但在shinyapps.io服務器上失敗。我嘗試使用系統命令而不是外殼：

path_to_vbs_file = "www/Macro_Trigger.vbs" 
system(shQuote(normalizePath(path_to_vbs_file)), intern = FALSE)

但是，這並不能幫助:(

來源

2016-03-02 Racharla Achyuth Reddy

我懷疑當服務器運行Linux操作系統時，vbs代碼不會在shinyapps.io上運行 –

感謝您的迴應。是否有任何替代方法可以實現我的目標是什麼？ –

我想你需要使用'RExcel'或類似的東西來實現R中的VBS代碼功能。 –

shinyapps.io運行Linux，因此執行VBS腳本是不會工作的，不幸的是我的建議是。將您的Excel宏移植到純R代碼

來源

2016-04-01 14:15:42 kippandrew

閃亮的應用程序不工作Shinyapps.io

回答

相關問題