我正在基于mtcars数据构建ShinyApp。我在计算 disp变量的值时遇到问题。 当在碳水化合物按钮中选择了全部时, disp 显示 0个计数。如果在 carb 中选择了 all 以外的其他值,则disp将准确计数其值。 有人可以看看我的代码吗?我将非常感谢。
library(shiny)
library(DT)
library(dplyr)
library(shinythemes)
library(htmlwidgets)
library(shinyWidgets)
library(shinydashboard)
data_table<-mtcars
#ui
ui = fluidPage(
sidebarLayout(
sidebarPanel (
uiOutput("vs_selector"),
uiOutput("carb_selector"),
uiOutput("disp_selector"),
uiOutput("cyl_selector"),
valueBoxOutput("count_disp"),
valueBoxOutput("count_cyl")),
mainPanel(
DT::dataTableOutput('mytable')
)
))
#server
server = function(input, output, session) {
output$vs_selector <- renderUI({
selectInput(inputId = "vs",
label = "vs:", multiple = TRUE,
choices = c( unique(data_table$vs)),
selected = c(0,1))
})
output$carb_selector <- renderUI({
req(input$vs)
available0 <- data_table[c(data_table$vs %in% input$vs ), "carb"]
selectInput(
inputId = "carb",
label = "carb:",
multiple = TRUE,
choices = c('All',as.character(unique(available0))),
selected = 'All')
})
output$disp_selector <- renderUI({
req(input$vs, input$carb)
available <- data_table[["disp"]][data_table$vs %in% input$vs]
if(! "All" %in% input$carb){
available <- available[data_table$carb %in% input$carb]
}
selectInput(
inputId = "disp",
label = "disp:",
multiple = TRUE,
choices = c('All',as.character(unique(available))),
selected = c(160,108, 258, 360))
})
output$cyl_selector <- renderUI({
req(input$vs, input$carb, input$disp)
available <- data_table[["cyl"]][data_table$vs %in% input$vs]
if(! "All" %in% input$disp){
available <- available[data_table$carb %in% input$carb &
data_table$disp %in% input$disp]
}
selectInput(
inputId = "cyl",
label = "cyl:",
multiple = TRUE,
choices = c('All',as.character(unique(available))),
selected = 'All')
})
output$count_disp <- renderValueBox({
if("All" %in% input$carb) {
available <- unique(data_table[['disp']][data_table$vs %in% input$vs]
)
} else{
available <- unique(data_table[['disp']][data_table$carb %in%
input$carb &
data_table$vs %in% input$vs ] )
}
valueBox(
value = length(available) ,
subtitle = sprintf("Number of disp values" ))
})
output$count_cyl <- renderValueBox({
if("All" %in% input$disp) {
available <- unique(data_table[['cyl']][data_table$vs %in% input$vs] )
} else{
available <- unique(data_table[['cyl']][data_table$carb %in%
input$carb &
data_table$vs %in% input$vs
&
data_table$disp %in%
input$disp ] )
}
valueBox(
value = length(available) ,
subtitle = sprintf("Number of cyl values" ))
})
thedata <- reactive({
req(input$disp, input$vs, input$carb, input$cyl)
data_table<-data_table[data_table$vs %in% input$vs,]
if(! "All" %in% input$carb){
data_table<-data_table[data_table$carb %in% input$carb,]
}
if(! "All" %in% input$disp){
data_table<-data_table[data_table$disp %in% input$disp,]
}
if(! "All" %in% input$cyl){
data_table<-data_table[data_table$cyl %in% input$cyl,]
}
data_table
})
output$mytable = DT::renderDataTable({
DT::datatable( {
thedata() # Call reactive thedata()
})
})
}
shinyApp(ui = ui, server = server)
答案 0 :(得分:1)
在renderValueBox中,您尝试对data_table[['disp']][data_table$carb %in% input$carb & data_table$vs %in% input$vs]
进行子集化,但是对input$carb == "All"
进行子集化,因此您的子集将返回长度为0的数字。
根据您的第一条评论进行编辑。我添加了一个函数,该函数返回向量的唯一值(“ cyl”,“ carb”等)。我们可以使用此函数A填充selectInput和B,以根据所选内容返回唯一值的长度。
library(shiny)
library(DT)
library(dplyr)
library(shinythemes)
library(htmlwidgets)
library(shinyWidgets)
library(shinydashboard)
#Input data
data_table<-mtcars
#Function returning all choices for given selector
ReturnChoices <- function(data, xSelector){
choices <- unique(data[[xSelector]])
return(choices)
}
#ui
ui = fluidPage(
sidebarLayout(
sidebarPanel (
uiOutput("vs_selector"),
uiOutput("carb_selector"),
uiOutput("disp_selector"),
uiOutput("cyl_selector"),
valueBoxOutput("count_disp"),
valueBoxOutput("count_cyl")),
mainPanel(
DT::dataTableOutput('mytable')
)
))
#server
server = function(input, output, session) {
output$vs_selector <- renderUI({
selectInput(inputId = "vs",
label = "vs:", multiple = TRUE,
choices = c( ReturnChoices(data_table, "vs")),
selected = c(0,1))
})
output$carb_selector <- renderUI({
selectInput(
inputId = "carb",
label = "carb:",
multiple = TRUE,
choices = c('All',as.character( ReturnChoices(data_table, "carb"))),
selected = 'All')
})
output$disp_selector <- renderUI({
selectInput(
inputId = "disp",
label = "disp:",
multiple = TRUE,
choices = c('All',as.character( ReturnChoices(data_table, "disp"))),
selected = c(160,108, 258, 360))
})
output$cyl_selector <- renderUI({
selectInput(
inputId = "cyl",
label = "cyl:",
multiple = TRUE,
choices = c('All',as.character( ReturnChoices(data_table, "cyl"))),
selected = 'All')
})
output$count_disp <- renderValueBox({
valueBox(
value = length( ReturnChoices(thedata(), "disp")) ,
subtitle = sprintf("Number of disp values" ))
})
output$count_cyl <- renderValueBox({
valueBox(
value = length( ReturnChoices(thedata(), "cyl")) ,
subtitle = sprintf("Number of cyl values" ))
})
thedata <- reactive({
req(input$disp, input$vs, input$carb, input$cyl)
if(! "All" %in% input$carb){
data_table<-data_table[data_table$carb %in% input$carb,]
}
if(! "All" %in% input$disp){
data_table<-data_table[data_table$disp %in% input$disp,]
}
if(! "All" %in% input$cyl){
data_table<-data_table[data_table$cyl %in% input$cyl,]
}
data_table<-data_table[data_table$vs %in% input$vs,]
data_table
})
output$mytable = DT::renderDataTable({
DT::datatable( {
thedata() # Call reactive thedata()
})
})
}
shinyApp(ui = ui, server = server)
让我知道它是否可以为您解决