Является продолжением предыдущих публикаций.
Естественно, что название является потешным, но, как хорошо известно, в каждой шутке есть доля правды. Сама тема возникла, когда в очередной сотый раз пришлось слышать настойчивое пожелание о том, что необходим «гибкий конструктор отчетов/графиков». После определенного момента проще взять и сделать, чем в очередной раз объяснять, что tidyverse покрывает все необходимые потребности.
Сама постановка задачи предельно проста: обеспечить графический интерфейс для рисования разнообразных графических представлений по произвольным табличным данным. Классическое решение представляет собой две связанные сущности:
- интерфейс с большим-большим количеством менюшек и кнопочек, с множественными закулисными
IF для управления взаимными состояниями этих элементов;
- «гибкий плоттер» с большим количеством вложенных
IF для отрисовки графиков в соотвествии со скормленным данными и положением кнопочек-ползунков, выставленных в UI.
С одной стороны делать «Yet Another Tableau» совершенно неинтересно. С другой стороны, постановка в стиле «сделать так, чтобы все было, но ничего не надо делать» — типичная задача для ТРИЗ.
В целом, после непродолжительных размышений было выработано решение, которое почти удовлетворяет последней постановке. Само Shiny приложение пока под NDA, свободно публикуемый прототип приведен на картинке.
Две ключевых идеи по упрощению задачи следующие (ничего нового, все уже придумано до нас):
- вместо статически заданного UI переходим к динамически генерируемому;
- используем интерпретатор R не только для исходного кода, но и внутри самого кода.
Идея 1. Динамический web-интерфейс
Вариант, когда все управляющие элементы статически заданы и меняется лишь их параметризация (название, состояние, списки, выбранные элементы ...) удобен на этапе дизайна. Все понятно, все очевидно, можно ручками пощупать. Но если допустимые состояния этих элементов очень сильно связано как с исходными данными для анализа (data.frame), так и с состоянием друг друга, мы попадаем в ситуацию весьма большого количества нетривиальных обработчиков событий по каждому элементу. Много-много запутанного кода.
Сделаем по-другому. Вместо UI элементов со сложным поведением раскидываем с помощью uiOutput placeholder-ы, в которые динамически рассчитываем и генерируем с помощью shiny::renderUI представление этого элемента. Все внешние параметры, требуемые для генерации элемента, трактуем как реактивные элементы (reactive). При этом все такие интерактивные элементы выступают в качестве «автономных агентов», которые смотрят на окружение и подстраиваются под него. Пользователь изменил состояние одного элемента — все зависимые стали пересчитывать по очереди свое состояние (мы явно не обрабатываем события, а используем реактивный подход shiny). При изменении их состояния могут возникнуть новые индуцированные изменения. И так, пока все не стабилизируется.
В результате, в коде остается только один обработчик (кнопка «Go») observeEvent(input$gen_plot, { # код демонстрирует принцип
escname <- function(x){
# имена колонок надо закавычить
# .....
}
point_code <- ""
if(input$shape_type!="__NO_MAPPING__") {
aes <- c("shape"=escname(input$aes_shape_col), "color"=escname(input$aes_color_col))
point_code <- buildPointCode(fixed=c("shape"=input$shape_type, "color"=glue("'{input$plot_color}'")), aes=aes)
}
line_code <- ""
if(input$line_type!="__NO_MAPPING__") {
aes <- c("linetype"=escname(input$aes_linetype_col), "color"=escname(input$aes_color_col))
line_code <- buildLineCode(fixed=c("linetype"=input$line_type, "color"=glue("'{input$plot_color}'")), aes=aes)
}
gcode <- glue("ggplot(data_df(), aes(x=`{input$x_axis_value}`, y=`{input$y_axis_value}`))\\
{point_code} {line_code} + xlab('{input$x_axis_label}')") %>%
style_text(scope="spaces")
plot_Rcode(gcode)
})
