к такому рабочему решению.
задача: дано: шайни, генерятся два типа графиков в зависимости от того какой был выбран на юай вариант. в одном случае рендерить можно просто plotOutput, в другом надо использовать plotly::plotlyOutput.
UI:
conditionalPanel(condition = "input.display_param_input == 'first_type'",
ns = ns,
plotly::plotlyOutput(outputId = ns( "plotly")))
conditionalPanel(condition = "input.display_param_input != 'first_type'",
ns = ns,
plotOutput( outputId = ns( "plot"),
height = "600px"))
Server:
out_id <- ifelse(input$display_param_input == "first_type",
"plotly",
"plot")
output[[out_id]] <- some_plot_gen_function(input_data, input$display_param_input) # пишет в аутпут график либо плотли, либо просто плот
собственно вопрос, где-то писали что в таком способе указания айди аутпута может произойти scoping bug. Как можно улучшить код и при этом не рискуя работоспособностью приложения?
Два атупа сделать, а отражаться будет тот который выводит UI
переписать аутпут как output$first, output$second? это дублирует строчки. Это да, рабочий вариант, но мне бы не хотелось дублировать строки с some_plot_gen_function(input_data, input$display_param_input) поскольку это весьма громоздкая функция.
Забейте на те функции лишнее выполнятся не будет
Обсуждают сегодня