R / RShiny Scoping - Глобальная среда, избегать пересчёта выходной реакции? - PullRequest
Новая
       27

R / RShiny Scoping - Глобальная среда, избегать пересчёта выходной реакции?

0 голосов
/ 05 ноября 2018

У меня есть общий вопрос о том, когда пользователи вносят изменения в значение ввода в Shiny и как эффективно реагировать на это изменение.

Сначала я нарисую картинку словами, затем попытаюсь создать минимальную версию того, о чем я говорю, с помощью кода.

Действие: Пользователь меняет раскрывающееся меню для выбора определенного элемента.

Реакция: Функция фильтра, основанная на этом пользовательском вводе, применяется к выходной переменной и отображается на экране.

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

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

Я чувствую, что здесь упускаю что-то фундаментальное.

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

test <- reactive({se_report_filtered(my_filter = input$PM_ID, 
                                          start_year = input$obs[1], 
                                          end_year = input$obs[2])})

se_report_filtered - это функция, которая фактически вычисляет новые значения для меня и возвращает список.

Затем используйте test , чтобы заполнить все остальные выходные значения. Я не могу заставить это работать. Вместо этого я вызываю se_report_filtered для каждого из моих выходов. Это кажется неправильным подходом.

Это не полностью воспроизводимый фрагмент, но я надеюсь, что идея все еще встречается. 

library(shiny)
library(shinydashboard)

header <- dashboardHeader(title = "Home")

frow1 <- fluidRow(
  valueBoxOutput("value2"), 
)


body <- dashboardBody(frow1)

#completing the ui part with dashboardPage
ui <- dashboardPage(title = 'Review', header, sidebar, body, skin='red')


server <- function(input, output) {

output$value2 <- renderValueBox({ 
    valueBox(
      formatC(se_report_filtered(my_filter = input$PM_ID, 
                                 start_year = input$obs[1], 
                                 end_year = input$obs[2])[[2]], 
              format="d", big.mark=',')
      ,'Total Met'
      ,icon = icon("stats",lib='glyphicon')
      ,color = "green")  
  })
}

shinyApp(ui, server)

Итак, по сути, я хочу заменить: 

output$value2 <- renderValueBox({ 
        valueBox(
          formatC(se_report_filtered(my_filter = input$PM_ID, 
                                     start_year = input$obs[1], 
                                     end_year = input$obs[2])[[2]], 
                  format="d", big.mark=',')
          ,'Total Met'
          ,icon = icon("stats",lib='glyphicon')
          ,color = "green")  
      })

с 

output$value2 <- renderValueBox({ 
        valueBox(
          formatC(test[[2]], 
                  format="d", big.mark=',')
          ,'Total Met'
          ,icon = icon("stats",lib='glyphicon')
          ,color = "green")  
      })

Я полагаю, что упускаю что-то фундаментальное, когда речь заходит о работе с реактивными переменными.

1 Ответ

0 голосов
/ 05 ноября 2018

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

library(shiny)
library(shinydashboard)

ui  <- fluidPage(
  fluidRow(
    valueBoxOutput("value2"),
    sliderInput("slider","Fourth Element", 1, 10, 5)
  ))

server <- function(input, output, session) { 

  test<-reactive(list(1,2,3,input$slider))

  output$value2 <- renderValueBox({ 
    Test<-test()
    Test<-Test[4]
    valueBox(
      formatC(Test, 
              format="d", big.mark=',')
      ,'Total Met'
      ,icon = icon("stats",lib='glyphicon')
      ,color = "green")  
  })



}


shinyApp(ui = ui, server = server)

Поскольку функция рендеринга является реактивной средой, она реагирует на изменения в изменениях реактивных переменных, в данном случае test().

В вашем случае test () возвращает все, что было создано внутри se_report_filtered, оно может быть задано таким же образом.

...