Shiny and R: Как добавить темы и настроить сообщения об ошибках

функция validate ()

Функция validate является незаменимым инструментом для работы с Shiny-кодом. По сути, validate позволяет запускать предупреждающее сообщение при манипулировании определенной частью Shiny-программы.

В этом конкретном случае я обсуждаю, как мы можем использовать функции validateneed

Сама программа, как и в прошлый раз, довольно проста с точки зрения своей функции. По сути, наша программа Shiny выдает значение по оси X в диапазоне от 1 до 100 в зависимости от значения, выбранного ползунком.

Затем мы используем соответствующее значение y для создания сообщения об ошибке всякий раз, когда рассчитанный наклон падает ниже 5, то есть при значении 29 или выше. Обратите внимание, что программа не рассчитывает наклон непосредственно, но вместо этого пользователь в этом случае использует значение 29 в качестве точки отсечения для этого наклона на основе ручного расчета.

В пользовательском интерфейсе мы указываем триггер валидации под нашим световым интерфейсом следующим образом:

 shinyUI(fluidPage(theme = shinytheme("spacelab"),
tags$head(
  tags$style(HTML("
    .shiny-output-error-validation {
    color: red;
    }
    "))
),

Под сервером мы указываем команды validateneedinput-output

 function(input, output) {
  output$algebra < - renderPlot({
    validate(
      need(input$lambda <= 28, "A value set at 29 or above produces a slope below 5. Please set a value below 29.")
    )

Полный код программы

Код пользовательского интерфейса и сервера в целом отображается ниже:

UI

 #Load libraries
library(shiny)
library(shinythemes)


#Define Shiny theme and specify shiny-output-error-validation
shinyUI(fluidPage(theme = shinytheme("spacelab"),


tags$head(
  tags$style(HTML("
    .shiny-output-error-validation {
    color: red;
    }
    "))
),


sidebarLayout(
  sidebarPanel(
    sliderInput("lambda",
      "Number of data points:",
      min = 1,
      max = 100,
      value = 1)
),


mainPanel(
  h3("Slope of a line", style = "font-family: 'Jura'; color: blue; font-size: 32px;"),
  HTML("<p>Excluding slope below 5 where y = 2x + 3"),
  plotOutput("algebra")
)
)
))

сервер

 #Load libraries
library(shiny)
library(ggplot2)
library(scales)


#Define validate function
function(input, output) {
  output$algebra <- renderPlot({
    validate(
      need(input$lambda <= 28, "A value set at 29 or above produces a slope below 5. Please set a value below 29.")
    )


#Define y as 2x+3 (using lambda to represent x variable)
    n <- 1:100
    lambda <- seq(min(n), max(n), length.out = input$lambda)
    plot((2*lambda)+3, type = "o", col = 'blue',
         fg = 'blue', xlab= "X (number of data points)", ylab = "Y = 2x+3")
  })
}

В качестве краткого резюме, мы запускаем программу:

• Открываем R Studio и выбираем New Icon → Shiny Web App

• Мы видим, что тогда у нас есть возможность выбрать один файл (с UI.Rserver.RUI.Rserver.R Мы будем использовать несколько файлов здесь.

• Теперь мы вставляем вышеуказанные пользовательский интерфейс и серверные коды в соответствующие разделы и запускаем программу, выбрав « Запустить приложение» .

Мы видим, что наш линейный график растет в точках данных на оси X в зависимости от того, как мы манипулируем ползунком. Однако вы заметите, что как только ползунок переместится на значение 29 или выше, появится сообщение об ошибке: «Значение, установленное на 29 или выше, создает наклон ниже 5. Пожалуйста, установите значение ниже 29» .

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

Например, сам сайт Shiny дает пример того, как функция validate Пользовательский интерфейс и сервер выдают гистограмму в качестве выходных данных, но программа выдает сообщение об ошибке, когда в списке выбран конкретный набор данных. Таким образом, команда validateneedinput$lambda <= 28«Значение установлено на 29 или выше дает наклон ниже 5. Пожалуйста, установите значение ниже 29. «

Более того, хотя мы указали только одно сообщение об ошибке, мы могли бы указать несколько. Например, давайте теперь предположим, что мы хотим отобразить дополнительное сообщение об ошибке, когда значение ползунка превышает 35:

 function(input, output) {
  output$algebra <- renderPlot({
    validate(
      need(input$lambda <= 28, "A value set at 29 or above produces a slope below 5. Please set a value below 29."),
      need(input$lambda <= 35, "Your slider is now at a value greater than 35!")
    )

Использование дополнительной функции need«Ваш ползунок теперь имеет значение больше 35!»

Вывод

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

В конечном счете, в центре внимания Shiny лежит обеспечение гораздо более удобного и интуитивно понятного опыта проведения анализа, чем было бы возможно при использовании только R, а также минимизируется риск ошибок ввода пользователем путем правильного указания параметров для конкретной программы.