閃亮的應用程序無法在Shinyapps.io上運行

Question

我的閃亮應用程序中有一段R代碼，該代碼基本上會觸發在Excel中運行宏的shell腳本：

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服務器上失敗。 我嘗試使用系統命令而不是shell：

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

但這無濟於事:(

Answer 1

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