Присвоение числовых значений ответам для расчета результатов в Shiny - PullRequest
Новая
       8

Присвоение числовых значений ответам для расчета результатов в Shiny

0 голосов
/ 27 февраля 2020

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

Пока что я создал формы и получил их для локального сохранения в csv. Что мне нужно сделать, это назначить числовое значение для ответов, затем выполнить расчет и отобразить результаты. Я рад покопаться и поиграть с отображением результатов. Я просто изо всех сил пытаюсь понять, как выполнить вычисления и назначить значения.

Вот одна из форм: 

#General Pharmacy form
                           tabPanel("General Pharmacy",
                                    tags$div(id= "form",

                                             #Gen Pharmacy Question 1
                                             radioButtons("genpharm1", "For trials which don't use an IxRS system, do you order drug:",
                                                          choices = c("Blindly (without consideration of patient numbers etc)", "Informed"),
                                                          selected = NULL, inline = FALSE, width = "600px"),

                                             #Gen Pharmacy Question 2
                                             radioButtons("genpharm2", "Do you recycle packaging?",
                                                          choices = c("Yes", "No"), selected = NULL, inline = FALSE, width = "600px"),

                                             #Gen Pharmacy Question 3
                                             radioButtons("genpharm3", "Do you use cost incentives to potentially improve efficient stock management by suppliers (eg. storage costs, per delivery etc…)",
                                                          choices = c("Yes", "No"), selected = NULL, inline = FALSE, width = "600px"))),

Итак, для этого примера:

Вопрос 1 - Слепой = 5 и Информированный = 1

Вопрос 2 - Да = Вопрос1 * 1 и Нет = Вопрос1 * 2

Вопрос 3 - Да = Вопрос2Результат * 1 и Нет = Вопрос2Результат * 2

Тогда результат, равный 3 или менее, означает низкий уровень воздействия, а значение, превышающее 6, означает высокий уровень воздействия.

Может ли кто-нибудь помочь? Даже если он направляет меня в правильном направлении!

Спасибо!

...