У меня есть обученная модель, которая использует черты личности для прогнозирования употребления наркотиков.Т.е. если вы согласны и экстравертированы, то мы прогнозируем xx% вероятности курения в прошлом году.Модель загружается в файлы Shiny, и я могу заставить ее работать и выводить процент, но по какой-то причине требуемый вывод повторяется в веб-приложении.
Сервер:
output$nicotine <- renderText({
df$GenderMale <- as.factor(ifelse(input$GenderMale == "Male",1,0))
df$Neuroticism <- input$Neuroticism/5
df$Extraversion <- input$Extraversion/5
df$X.Openness.to.experience. <- input$X.Openness.to.experience./5
df$Agreeableness <- input$Agreeableness/5
df$Conscientiousness <- input$Conscientiousness/5
df$Impulsiveness <- input$Impulsiveness/5
df$X.Sensation.seeing. <- input$X.Sensation.seeing./5
result <- predict(shiny_nic, df, type = "response")
result <- round(result*100,0)
paste("Based on our sample and the inputs given, we believe that your risk of having used nicotine at
least once in the past year is", result, "%. The proportion of our sample, which used nicotine
in the last year was 56%.")
UI:
textOutput("nicotine")
Что я делаю не так?Это последняя часть «На основе нашего образца ...», которая постоянно повторяется в веб-приложении Shiny.Т.е. он печатает предложение 500 раз вместо одного раза.
Я искал вокруг, но безрезультатно.Заранее спасибо