创建反应性数据框并在闪亮的仪表板中的表格中打印所述数据框

Question

首先是原始数据集。这是通过一组用户输入选择进行过滤的。过滤之后，我有一个反应式函数可以基于这些过滤器创建一个新的数据帧。我想在表中打印该新数据框，但没有任何运气。我在下面附加了代码的相关部分：

ui <- 
.
.
tabItem(tabName = "DP", uiOutput("DPsubs"),tableOutput("table1"))
.
.
server <- 
. 
.
NicheSummaryDataSet<-merge(NicheSummaryDataSet, data.frame(Loss_Ratio = NicheSummaryDataSet$ITD_Total_Net_Inc/NicheSummaryDataSet$ITD_Earned_Premium), by = "row.names")


# Data Table with box plot values 
  boxvalues <- reactive({
    Range<- as.data.frame(tapply(NicheSummaryDataSet$Discretionary_Price_Relativity,NicheSummaryDataSet$Niche_Groups, quantile))
  })

  output$table1 <- renderTable({
    boxvalues()
  })