Comment puis-je construire un réactif dataframe dans la R / Brillant?

Je veux utiliser un réactif dataframe pour afficher plusieurs parcelles et des graphiques. J'ai un jeu de données que je voudrais être en mesure de filtrer. Ceux que j'ai trouvé les bons paramètres de filtre, je voudrais afficher les données sur un certain nombre de parcelles différentes – qui sera mise à jour, si les paramètres de filtre a changé.

Ce qui pourrait expliquer, ce que je suis en train de faire:

De l'INTERFACE utilisateur:

fluidPage(
  sidebarLayout(
    sidebarPanel(

      checkboxGroupInput("checkGroups", 
                         label = "Include", choices = list("1 star" = 1, "2 star" = 2,
                                                           "3 star" = 3, "4 star" = 4,
                                                           "5 star" = 5),
                         selected = list(1, 2, 3, 4, 5)),

      checkboxInput("checkbox", "Include Replies"),

      actionButton("Button", "Update")

    ),
    mainPanel(

      showOutput("plot", "nvd3"),

      showOutput("pieplot", "nvd3")

    )
  )
)

SERVEUR:

rating <- c(2, 3, 5, 4, 1, 5, 3, 1, 4)
date_time <- c("2015-05-14", "2015-05-07", "2015-05-06", "2015-04-11", "2015-01-07", "2014-12-06", "2014-04-11", "2014-01-07", "2013-12-06")
repliesOnly <- c(TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE)
data <- data.frame(rating, date_time, repliesOnly)

function(input, output, session) {

  load("data.Rdata")

  newdata <- reactive({

    filter_data <- data

    filter_data <- filter_data %>% filter(rating %in% input$checkGroups)

    filter_data <- filter_data %>% filter(repliesOnly %in% input$checkbox)

    return(filter_data)

  })

  output$plot <- renderChart({

    plot <- nPlot(rating ~ date_time, data = newdata, 
                  type = "multiBarHorizontalChart", dom = 'plot')
    return(plot)

  })

  output$pieplot <- renderChart({

    pieplot <- nPlot(rating ~ date_time, data = newdata, 
                  type = "pieChart", dom = 'pieplot')
    return(pieplot)

  })

}

Peut-il être fait? Bien sûr, je peux juste inclure le filtre de chaque graphique-sortie, mais mon jeu de données est plutôt grand et mon filtre est assez complexe, donc si elle doit calculer pour chaque graphique, il prend une éternité.

Toute aide est grandement appréciée!

Où en êtes-vous de la fonction showOuput? Assurez-vous que votre exemple est reproductible à l'avant de la publier.
Il ressemble à tout ce que vous avez à faire est d'ajouter quelque chose comme dat <- newdata() dans votre sortie de commandes de rendu et l'utilisation dat dans votre parcelle de terrain de commandes.
en fait, je pense que tu pourrais juste ajouter () après newdata comme vous l'avez écrit, vous avez juste à appeler newdata.
double possible de Conditionnellement. et de calculer une nouvelle variable dans dataframe en brillant

OriginalL'auteur Emil Lykke Jensen | 2015-05-25

dataframe r shiny

Merci pour l'aide - cela a fonctionné:

SERVEUR:

library(shiny)
library(rCharts)

rating <- c(2, 3, 5, 4, 1, 5, 3, 1, 4)
date_time <- c("2015-05-14", "2015-05-07", "2015-05-06", "2015-04-11", "2015-01-07", "2014-12-06", "2014-04-11", "2014-01-07", "2013-12-06")
repliesOnly <- c(TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE)
data <- data.frame(rating, date_time, repliesOnly)
data$rating <- as.character(data$rating)


function(input, output, session) {

  load("data.Rdata")

  datadata <- data
  makeReactiveBinding("datadata")

  newData <- reactive({

    input$Button
    isolate({

      datadata <- data

      datadata <- subset(datadata, rating %in% input$checkGroups)


    })

  })

  output$plot <- renderChart({

    datadata <- newData()

    plot <- nPlot(rating ~ date_time, data = datadata, 
                  type = "multiBarHorizontalChart", dom = 'plot')
    return(plot)

  })

  output$pieplot <- renderChart({

    datadata <- newData()

    pieplot <- nPlot(rating ~ date_time, data = datadata, 
                  type = "pieChart", dom = 'pieplot')
    return(pieplot)

  })

}

Veuillez envisager d'ajouter des commentaires

OriginalL'auteur Emil Lykke Jensen

Merci pour cet exemple; j'ai aussi besoin d'un réactif dataframe de filtrage. Après les combats de 2 heures avec l'erreur suivante:

cannot coerce class ""reactive"" to a data.frame

votre post m'a aidé à résoudre le problème. J'ose poster une version simplifiée de votre exemple, plus facile à reproduire (pas de showOutput ou readChart appels), pour référence future à d'autres brillants utilisateurs.

N. B.: j'utilise le fichier unique de l'application.

library(shiny)

rating <- c(2, 3, 5, 4, 1, 5, 3, 1, 4)
date_time <- c("2015-05-14", "2015-05-07", "2015-05-06", "2015-04-11",
"2015-01-07", "2014-12-06", "2014-04-11", "2014-01-07", "2013-12-06")
repliesOnly <- c(TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE)
data <- data.frame(rating, date_time, repliesOnly)
data$rating <- as.character(data$rating)

ui <- fluidPage(
   sidebarLayout(
   sidebarPanel(

   checkboxGroupInput("checkGroups", 
                     label = "Include", choices = c("1 star" = 1, 
                                                       "2 star" = 2,
                                                       "3 star" = 3, 
                                                       "4 star" = 4,
                                                       "5 star" = 5),
                     selected = list(1, 2, 3, 4, 5))
),

mainPanel(
  tableOutput("view")
    )
   )
    )

server <- function(input, output, session) {
  newData <- reactive({
         data <- subset(data, rating %in% input$checkGroups)
 })

output$view <- renderTable({ newData() })

}

shinyApp(ui = ui, server = server)

OriginalL'auteur user7580792

Vous devez vous connecter pour publier un commentaire.