r - shiny-server:变量名限制在 10000 字节以内

Question

我在仅在 shiny-server 中运行代码时遇到错误。当我使用 runApp() 函数从 R 控制台运行相同的代码时，它运行良好。请参阅下面的错误消息....

Warning: Error in assign: variable names are limited to 10000 bytes
Stack trace (innermost first):
    46: assign
    45: wrapFunctionLabel
    44: public_bind_env$initialize
    43: Observable$new
    42: reactive
    41: templateServer
    40: server [/home/shiny-apps/ACCPlantAnalysis/server.R#20]
     1: runApp
Error in assign(name, func, environment()) : 
  variable names are limited to 10000 bytes

第 41 和 40 行是我写的。但其他几行不是我写的；从任何引用图书馆调用。我不知道来自哪个图书馆。

Answer 1

终于找到解决办法了。我为每个“if” block 编写函数，并将“if” block 的所有代码放入函数中。然后调用函数。问题就解决了。

SectoralLeverageRatio(){
...
...
}

if (selectedIndex=="Sectoral Leverage Ratio"){
  SectoralLeverageRatio()
}

结论是...如果您的“if” block 足够大并且出现“变量名称限制为 10000 字节”错误。用用户定义的函数替换“if” block 中的代码。

这是shiny-server的问题；不是'R'的问题。如果您使用 runApp() 从“R”控制台运行您的代码，您将不会收到任何错误。但是如果你跑通(生产环境)你可能会报错。