Rのコンソールでは、下記コードは問題なく実行されますが、
library(pforeach)
a<-c(10,20,30,40,50,60,70,80,90,100)
pforeach(i=3:8) ({ a[i] })
[1] 30 40 50 60 70 80
shiny server で下記のように記述して実行するとエラーが返されます。
server.R
library(shiny)
library(pforeach)
shinyServer(function(input, output){
a<-c(10,20,30,40,50,60,70,80,90,100)
b<-reactive({
pforeach(i=3:8) ({ a()[i] })
})
Error: プロミスは既に評価されています: 再帰的な引数既定値の参照か以前の問題?
解決方法をご教示頂けますと幸いです。
(foreachでも同様の結果となっています)