Я хочу использовать реактивную функцию в блестящем приложении R, но застрял между - PullRequest
Новая
       14

Я хочу использовать реактивную функцию в блестящем приложении R, но застрял между

0 голосов
/ 30 января 2020

Я предоставляю ниже код R для блестящего приложения, где у меня возникает проблема: 

Planning_data_Selected_filtered <- reactive({
subset(Planning_data_Selected , Planning_data_Selected$Cost_Element %in% input$Cost_Element & Planning_data_Selected$Cost_Center %in% input$Cost_Center)
})

Planning_data_Selected_new <- Planning_data_Selected_filtered()
Planning_data_Selected_new$Planning_Cost <- round(as.numeric(na_to_zero(Planning_data_Selected_new$Planning_Cost)), 0)
Planning_data_Selected_new$Planning_Cost_Revised <- round(as.numeric(Planning_data_Selected_new$Planning_Cost), 0)
Planning_data_Selected_new$Row_ID <- as.numeric(Planning_data_Selected_new$Row_ID)

Planning_data_Selected_disp <- Planning_data_Selected_new %>%
select(-c(RF1, Document_Date, Created_on, Document_Header_Text, Entered_by, Exchange_Rate_Type, `Fiscal _Year`)) %>% 
rename(Fiscal_Year = Fiscal_Year1)

обратите внимание, что Planning_data_Selected был рассчитан ранее. Мне нужно фильтровать его каждый раз, когда я получаю входные данные - центр затрат и элементы затрат. В зависимости от этих двух входных данных мне нужно, чтобы мои данные имели правильное подмножество. а затем я вычисляю несколько вещей на одних и тех же данных (подмножество) и затем отображаю их на блестящей странице.

Я впервые использую реактив (). Пожалуйста, помогите.

...