R Shiny：将无功输出转换为整数答案

【问题标题】：R Shiny: convert reactive output in integerR Shiny：将无功输出转换为整数
【发布时间】：2016-03-06 16:59:15
【问题描述】：

我有一个使用 Shiny Server 工具的 Web 应用程序。在文件ui.R 中，我有一个checkboxGroupInput。 checkboxGroupInput ID 是“salida”：

    checkboxGroupInput("salida","Salida:",
                       c(salida_datos$column_name), selected = "temp"),

在文件server.R中，我有以下代码：

totalgraficas <- reactiveValues(numero=0)
numerograficas <- reactive({
   for(i in 1:length(input$salida))
   {
     if(input$salida[i] == "temp" || input$salida[i] == "temp_int")
     {
        totalgraficas$numero = totalgraficas$numero +1
     }        
   }
   return(totalgraficas$numero)
})

output$graficaDatos = renderPlot({

    LAS = 2 
    MFROW = c(numerograficas,1) #Filas y columnas
    MAR =  c(4,4,1,1) #Margenes

    par(las= LAS, mfrow= MFROW, mar= MAR)

    ...

我收到以下错误

(list) object cannot be coerced to type 'integer'

我需要“numerograficas”的输出是一个整数，以便在函数mfrow中使用

我该怎么做？

谢谢。

【问题讨论】：

标签： r integer shiny

【解决方案1】：

您需要isolate(totalgraficas$numero) 才能获得totalgraficas$numero 的值。我没有你的数据，但下面是一个获取整数的虚拟示例。

 library(shiny)

ui <- fluidPage(
    checkboxGroupInput("salida","Salida:",
                       c("a", "temp_int", "temp"), selected = "temp"),
    verbatimTextOutput("printN")
)

server <- function(input, output) {
    totalgraficas <- reactiveValues(numero=0)
    numerograficas <- reactive({
        for(i in 1:length(input$salida)) {
            if(input$salida[i] == "temp" || input$salida[i] == "temp_int") {
                ########################################################
                # use isolate() to get the value of totalgraficas$numero
                totalgraficas$numero <- isolate(totalgraficas$numero) +1
            }        
        }
        return(totalgraficas$numero)
    })
    output$printN <- renderPrint({
        numerograficas()
    })
}

shinyApp(ui, server)

【讨论】：