5
我有一些数据在下面,我正用它来创建一个R闪亮的圆环图,其中date
是一个字符。我希望能够选择要查看其分数的电子邮件,但在第二个下拉选择中,只能查看该电子邮件具有活动的日期。R依赖于另一个selectInput的闪亮selectInput
例如,如果我在第一个下拉列表中选择email = xxxx,我希望在日期选择字段中只看到'no activity'。而对于电子邮件= yyyy,我只想看到6/17/14,6/18/14,6/19/14作为选择。
我已经尝试了一种在ui中嵌套子集。例如:
> 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"))
+ )
+))
但是,这仍然显示了所有可能的日期选择
DATA
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
到目前为止我的代码:
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)
也做到了!出于某种原因,我必须选择= as.character(dat5 [dat5 $ email == input $ Select,“date”])'不带日期的引号。否则工作很好! – Hillary
我很困惑的回答声明“你不能在应用程序的ui.R部分访问输入”。当你使用条件面板时,你正在根据input.panel定义条件。这不取决于用户界面的输入吗? –