r - ShinyリアクティブテーブルサブセットでベースR関数を実行するには?

Question

Shiny/flexdashboard Markdown ファイルを作成しようとしていますが、R コード チャンクに次のコードを貼り付けました。基本的に、2 つの入力を使用して入力データフレームをサブセット化します。2 番目の入力は最初の入力に依存します。

output$Box1 = renderUI(selectInput('sector', 
                                 'Sector', 
                                 c(levels(test$Sector),"pick one"),
                                 "pick one") )

output$Box2 = renderUI(
if (is.null(input$sector) || input$sector == "pick one"){return() 
}else selectInput('FA', 
                  'Functional Area', 
                  c(levels(test$FA[which(test$Sector == input$sector)]),"pick one"),
                  "pick one"))

subdata1 = reactive(test[which(test$Sector == input$sector),])
subdata2 = reactive(subdata1()[which(subdata1()$FA == input$FA),])
renderDataTable({subdata2()},  options = list(dom = 'lpt'))

現在、これはデータ フレーム (セクター、次に FA) をサブセット化するために正常に機能し、サブセット化されたデータ フレームは を介し​​てダッシュボードに表示されrenderDataTableます。

私がやりたいことはtable、リアクティブ データ サブセットに対して次のようなことを実行して、因子レベルで分割表を作成することです。

 data1 <- reactive(table(subdata2()$UserCountry))

次に、この新しいテーブルをさらに使用します。たとえば、次のようになります。

renderDataTable({data1()},  options = list(dom = 'lpt'))

これを試してみると、新しいテーブルがレンダリングされません。

これを正常に実行する方法はありますか?