J'ai quelques données ci-dessous que j'utilise pour créer un graphique en anneau dans R brillant, où date
est un caractère. Je veux pouvoir sélectionner l'e-mail dont je souhaite afficher le score, mais dans la deuxième sélection déroulante, je ne vois que les dates auxquelles cet e-mail a une activité.
Par exemple, si je sélectionne email = xxxx dans la première liste déroulante, je veux voir seulement "aucune activité" dans le champ de sélection de date. Et pour l'email = aaaa, je veux voir seulement les sélections du 17/06/14, 18/06/14, 19/06/14.
J'ai essayé une sorte de sous-ensemble imbriqué dans l'interface utilisateur. Exemple:
> ui <- shinyUI(fluidPage(
+ sidebarLayout(
+ sidebarPanel(
+ selectInput('Select', 'Customer:', choices = unique(as.character(dat5$email))),
+ selectInput("User", "Date:", choices = dat5[dat5$email==input$Select,date])
+ ),
+ mainPanel(plotOutput("distPlot"))
+ )
+ ))
Mais cela montre toujours toutes les sélections de date possibles
DONNÉES
email date variable value ymin ymax
xxxx no activity e_score 0 0 0
xxxx no activity diff 1 0 1
yyyy 6/17/14 e_score 0.7472 0 0.7472
yyyy 6/17/14 diff 0.2528 0.7472 1
yyyy 6/18/14 e_score 0.373 0 0.373
yyyy 6/18/14 diff 0.627 0.373 1
yyyy 6/19/14 e_score 0.533 0 0.533
yyyy 6/19/14 diff 0.467 0.533 1
Mon code jusqu'à présent:
app.R
library(shiny)
library(shinydashboard)
ui <- shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
selectInput('Select', 'Customer:', choices = unique(as.character(dat5$email))),
selectInput("User", "Date:", choices = unique(dat5$date) )
),
mainPanel(plotOutput("distPlot"))
)
))
server <- function(input, output) {
output$distPlot <- renderPlot({
ggplot(data = subset(dat5, (email %in% input$Select & date %in% input$User)), aes(fill=variable, ymax = ymax, ymin = ymin, xmax = 4, xmin = 3)) +
geom_rect(colour = "grey30", show_guide = F) +
coord_polar(theta = "y") +
geom_text(aes(x = 0, y = 0,label = round(value[1]*100))) +
xlim(c(0, 4)) +
theme_bw() +
theme(panel.grid=element_blank()) +
theme(axis.text=element_blank()) +
theme(axis.ticks=element_blank()) +
xlab("") +
ylab("") +
scale_fill_manual(values=c('#33FF00','#CCCCCC'))
})
}
shinyApp(ui = ui, server = server)
Vous ne pouvez pas accéder aux entrées dans la partie ui.R de l'application, vous devez donc utiliser renderUi/uiOutput pour générer dynamiquement votre selectInput.
Dans votre ui.R
vous pouvez ajouter:
uiOutput("secondSelection")
et dans votre server.R
:
output$secondSelection <- renderUI({
selectInput("User", "Date:", choices = as.character(dat5[dat5$email==input$Select,"date"]))
})