Галерея (карусель) визуальных элементов в интерфейсе Shiny приложения
Продолжаем декабрьский марафон заметок по полезным пакетам, направленных на улучшение пользовательского интерфейса Shiny приложений.
В этой заметке мы разберёмся с тем, как добавить в пользовательский интерфейс приложения карусель (пример смотрите на изображении к посту). Карусель - это специальное окно, которое позволяет пользователю перемещаться между визуализациями с помощью кнопок далее и назад.
Добавить карусель можно с помощью пакета shinyglide. Компонент shinyglide создаётся с помощью функции glide(), далее в этот компонент добавляются экраны с помощью вложенных функций screen(). Пример ниже демонстрирует как можно добавить серию экранов в карусель:
library(shiny)
library(shinyglide)
ui <- fixedPage(style = "max-width: 500px;",
titlePanel("Simple shinyglide app"),
glide(
height = "350px",
screen(
p("This is a very simple shinyglide application."),
p("Please click on Next to go to the next screen.")
),
screen(
p("Please choose a value."),
numericInput("n", "n", value = 10, min = 10)
),
screen(
p("And here is the result."),
plotOutput("plot")
)
)
)
server <- function(input, output, session) {
output$plot <- renderPlot({
hist(
rnorm(input$n),
main = paste("n =", input$n),
xlab = ""
)
})
}
shinyApp(ui, server)
Пакет shinyglide также позволяет добавить условие, которое должно быть выполнено перед тем, как пользователю станет доступен переход на следующий жкран карусели. Реализуется это с помощью аргумента next_condition функции screen(). Этот приём можно использовать, например, при разработке тестов.
Ссылки:
- Ссылка на приложение, представленное к изображению к посту
- Ссылка на документацию пакета
#заметки_по_R
