サブセット反応的な式から構築されたデータフレーム

Question

私は光沢に問題があります。私はリストに照合している多数の入力を持っています。私はcbind()を使用して、これらをデータフレームに結合します。

ここでは、最初の列に値を持たないこのデータフレームのすべての行を削除します。 shinyServer

exposure.df <- reactive({as.data.frame(cbind("Exposure" = exposure.vector(), "NDF?" = exposure.ndf.vector(), "Source" = exposure.source.vector(), "Time" = exposure.time.vector(), "Weight" = exposure.weight.vector()))}) 

内

私はそれをサブセットしよう：

exposure.df <- reactive({subset(exposure.df(), !(Exposure == ""))}) 

私はこのエラーを取得する：

Warning: Error in : evaluation nested too deeply: infinite recursion/options(expressions=)? No stack trace available

任意のアイデア？

Answer 1

exposure.dfを定義してから、2番目の行でそれ自身を反応させようとしているため、再帰が行われます。あなたはexposure.dfの定義内に複数の行を入れることができます：

exposure.df <- reactive({ 
    df <- as.data.frame(cbind("Exposure" = exposure.vector(), "NDF?" = exposure.ndf.vector(), "Source" = exposure.source.vector(), "Time" = exposure.time.vector(), "Weight" = exposure.weight.vector())) 
    subset(df, !(Exposure == "")) 
}) 

そして、最後の操作の結果（この場合は、subsetは）あなたが反応exposure.df()を呼び出すときに取得されるものです。