Я относительно новичок в блестящем приложении и пытаюсь создать некоторые основные правила принятия решений, которые выведут классификационную схему на основе определенных правил. Моя платформа и R версии являются:Shiny App creation - Передача результата в таблицу; чтение объектов из Shiny не разрешено
Платформа: x86_64_w64_mingw32 R версия: 3.2.1 (2015_06_18)
Я получаю ошибку: Ошибка в $ .shinyoutput: Чтение объектов из shinyoutput объект не разрешается при попытке проверьте вывод #Profile 1, где Fall LNF - < 20.5 (т. е. ввод $ fluency2 < 20.5 с использованием renderPrint для объекта «a»). Для операторов множественного if у меня есть команды печати, которые печатаются в консоли R, но не могут понять, как получить информационное сообщение в «Группировках» mainPanel, определенных в объекте ui. Ниже приведен мой сценарий для команд ui, server и ShinyApp. Любая помощь приветствуется.
ui<-(fluidPage(titlePanel("testapp"),
sliderInput(inputId="fluency1", label="Fall FSF",value=25,min=0,max=200),
sliderInput(inputId="fluency2", label="Fall LNF",value=25,min=0,max=200),
mainPanel(h5("Groupings"),
textOutput("stuff"))))
server<-function(input,output) {observe({
#PROFILE 1
if ((input$fluency2<20.5)) {
#print("Profile 1")
a<-renderPrint(output$stuff({"Profile 1"}))
a()
}
if((input$fluency1<12) & ((input$fluency2>20)) & (input$fluency2<23)) {
print("Profile 1")
}
if((input$fluency1<9) & ((input$fluency2>21)) & (input$fluency2<25)) {
print("Profile 1")
}
#PROFILE 2
if ((input$fluency1>11)) {
print("Profile 2")
}
if(((input$fluency1>8) & (input$fluency1<28)) & ((input$fluency2>22) & (input$fluency2<25))) {
print("Profile 2")
}
if((input$fluency1<28) & ((input$fluency2>24))) {
print("Profile 2")
}
#PROFILE 3
if((input$fluency1>27) & ((input$fluency2>23))) {
print("Profile 3")
}})}
shinyApp(server=server,ui=ui)