Проблема с использованием if и Else для рендеринга текста в R блестящим

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

В настоящее время я получаю сообщение об ошибке, я пытался использовать if else, я новичок в блестящем и довольно новичок в R, поэтому борюсь с кодом.

Я пытался поиграть с использованием реактивного x, но не смог заставить его работать потенциально, потому что это не числовое значение?

# Sidebar with a select input for number of bins 
sidebarLayout(
    sidebarPanel(
        selectInput(inputId = "Options",
                    label = "Option",
                    choices = c("Option 1","Option 2"))
    ),

    # Show a text output
    mainPanel(
        textOutput(outputId = "ParticpantInformation1"),
        textOutput(outputId = "ParticpantInformation2")

    )),

# Define server logic required to rendertext
server <- function(input, output) {

    if (input$Options= = "Option 1") output$ParticpantInformation1 <- renderText("Option 1")
    else output$ParticpantInformation2 <-renderText("Option 2")

Я надеюсь, что он отобразит один или другой набор текста на главной панели приложения.

В настоящее время я получаю сообщение об ошибке: «невозможно принудить тип «замыкание» к вектору типа «символ»».

if-statement shiny rendering

27.05.2019 12:07

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

328

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Вам это не нужно if (). Вы можете напрямую обратиться к выбору пользователя следующим образом:

library(shiny)

ui <- fluidPage(
  # Sidebar with a select input for number of bins 
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "Options",
                  label = "Option",
                  choices = list("Option 1" = "My option 1 text", "Option 2" = "My option 2 text"))
    ),

    # Show a text output
    mainPanel(
      textOutput(outputId = "ParticpantInformation")
    ))
)

server <- function(input, output, session) {
  output$ParticpantInformation <- renderText({input$Options})
}

shinyApp(ui = ui, server = server)

Для альтернативы см. ?conditionalPanel, но в данном случае это излишне сложно.

Спасибо, очень полезно, потратил часы, пытаясь заставить это работать

— 27.05.2019 18:20

Пожалуйста! Пожалуйста, примите ответ, если он помог.

— 27.05.2019 18:40

27.05.2019 13:26