tiene - R Datos del subconjunto reactivo brillante: el objeto ERROR del tipo ''cierre'' no es subconjunto

subconjunto simbolo

Question

Intento crear un subconjunto de datos reactivos para evitar hacer subconjuntos en cada etapa del análisis. Sin embargo, obtengo que el objeto de error de tipo ''cierre'' no es subconjunto . He visto respuestas anteriores y evito usar las funciones de base-R.

library(shiny)

shinyServer(function(input, output) {

    data_all <- read.csv("data/usage_data.csv")

    data_user <- reactive({
    subset(data_all, data_all$consumername %in% input$user)
    })

    output$distPlot <- renderPlot({    
        #data_user <- subset(data_all, data_all$consumername %in% input$user)
        data_user$date <- as.Date(data_user$date)

        stats$mean <- mean(data_user$usage_TB)
        stats$sd <- sd(data_user$usage_TB)

        pp <- ggplot(data_user, aes(date,usage_TB)) + geom_line() + xlim(input$dates) 
        pp + geom_hline(yintercept = stats$mean, color = "red")

    })

    output$mean <- renderPrint({
        #data_user <- subset(data_all, data_all$consumername %in% input$user)
        mean(data_user$usage_TB)
    })
    output$sd <- renderPrint({
        #data_user <- subset(data_all, data_all$consumername %in% input$user)
        sd(data_user$usage_TB)
    })
    output$p75 <- renderPrint({
        #data_user <- subset(data_all, data_all$consumername %in% input$user)
        quantile(data_user$usage_TB,0.75)
    })
})

Si hago el subconjunto t en cada paso no tengo problemas, pero creo que hacer que el subconjunto sea reactivo debería ser mejor.

Answer 1

La pregunta encontrada se volvió a formular y se respondió en https://groups.google.com/forum/#!msg/shiny-discuss/p2eElm-XaqQ/y3vB4l3tt3EJ.

Básicamente, sugirieron

data_user <- reactive({ 
    df <- subset(data_all, data_all$consumername %in% input$user)
    df$date <- as.Date(data_user$date)
    df
})

No hay suficientes representantes para agregar un comentario, y pensé que sería útil para otros, fue para mí.