闪亮的应用程序创建 - 将结果传递给表；不允许从 Shiny 读取对象答案

【问题标题】：Shiny App creation - Passing result to table; reading objects from Shiny not allowed闪亮的应用程序创建 - 将结果传递给表；不允许从 Shiny 读取对象
【发布时间】：2017-01-27 09:16:01
【问题描述】：

我对闪亮的应用程序比较陌生，并尝试创建一些基本的决策规则，这些规则将根据定义的规则输出分类方案。我的平台和 R 版本是：

平台：x86_64_w64_mingw32 R版本：3.2.1（2015_06_18）

我收到以下错误：$.shinyoutput 中的错误：在尝试测试 Fall LNF 分数

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)

【问题讨论】：

标签： r shiny

【解决方案1】：

这有帮助吗？

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) {

            profile <- reactive({
                    if ( (input$fluency2<20.5)) {
                            tmp <- "Profile 1"
                    } 
                    if( (input$fluency1<12) & ((input$fluency2>20)) & (input$fluency2<23)) {
                            tmp <- "Profile 1"
                    } 
                    if( (input$fluency1<9) & ((input$fluency2>21)) & (input$fluency2<25)) {
                            tmp <- "Profile 1"
                    } 

                    #PROFILE 2
                    if ( (input$fluency1>11)) {
                            tmp <- "Profile 2"
                    } 
                    if( ((input$fluency1>8) & (input$fluency1<28)) & ((input$fluency2>22) & (input$fluency2<25))) {
                            tmp <- "Profile 2"
                    } 
                    if( (input$fluency1<28) & ((input$fluency2>24))) {
                            tmp <- "Profile 2"
                    } 

                    #PROFILE 3
                    if( (input$fluency1>27) & ((input$fluency2>23))) {
                            tmp <- "Profile 3"
                    }
                    tmp

            })
            output$stuff <- renderText({
                    profile()
            })
    }


    shinyApp(server=server,ui=ui)

【讨论】：