Блестящий вывод сервера if-statement error

Я получаю missing value where TRUE/FALSE needed в следующем коде, и я не понимаю, почему.Блестящий вывод сервера if-statement error

output$Strength<-renderText( if(input$Motiv>=((input$Tempt-input$Rew)/(input$Tempt-input$Pun))){ "Strong!" }else{ "Weak!" } )

Остальная часть Блестящая App работает просто отлично.

источник

2017-02-10 Jay Schyler Raadt

Вы пробовали отладки кода, чтобы увидеть фактическое содержание 'input' до если? Не могли бы вы включить в вопрос результат 'print (input)', выполненный непосредственно перед if? –

Когда я вынимаю это заявление, приложение работает нормально. Это ассоциированный код пользовательского интерфейса: 'textOutput (" Strength ")' –

Да, но эта ошибка, вероятно, связана с тем, что 'input' не содержит одного (или более) столбцов, которые вы пытаетесь доступ с помощью '$'. Не могли бы вы включить результат вызова 'print (input)' внутри функции renderText? –

Try ..

output$Strength<-renderText(
    if(input$Motiv[1] >= ((input$Tempt[1]-input$Rew[1])/(input$Tempt[1]-input$Pun[1]))){ 
     "Strong!" 
    }else{ 
     "Weak!" 
    } 
)

источник

2017-02-14 09:29:53 LuckySeedling

Блестящий вывод сервера if-statement error

ответ

Смежные вопросы