Создать реактивный фрейм данных и распечатать указанный фрейм данных в таблице на блестящей приборной панели - PullRequest
Новая
       14

Создать реактивный фрейм данных и распечатать указанный фрейм данных в таблице на блестящей приборной панели

0 голосов
/ 21 июня 2019

Прежде всего, это оригинальный набор данных. Это фильтруется набором пользовательских вводимых данных. После фильтрации у меня есть реактивная функция для создания нового фрейма данных на основе этих фильтров. Я хочу напечатать этот новый фрейм данных в таблице, но мне не повезло. Я приложил соответствующие части моего кода ниже: 

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()
  })
...