未在閃亮應用中選中複選框

我需要爲學校項目準備一個閃亮的應用。這是什麼是應該看起來像未在閃亮應用中選中複選框

https://yuvaln.shinyapps.io/olympics/

如果你看你看有一個名爲複選框medals.When你打開他們都選擇了應用程序，但在應用的鏈接事件用戶決定取消選中它們應該有一個小錯誤，並且不應該繪製圖表。

我有麻煩到這一點，當我取消所有的箱子在我的應用程序它繪製了一個空的繪圖

這是代碼的重要組成部分：

fluidRow(
    column(3,checkboxGroupInput("Medals", label = strong("Medals"), 
    choices = list("Total" = "TOTAL", "Gold" = 'GOLD', 
    "Silver" = 'SILVER','Bronze'='BRONZE'), 
    selected = c('TOTAL','GOLD','SILVER','BRONZE')))), 

    fluidRow(
    mainPanel(plotOutput('coolplot'),width = '40%')) 
)  
) 
    server <- function(input, output){output$coolplot<-renderPlot(plot.medals2(input$country, 
    input$Startingyear,input$Endingyear,input$Medals))} 
    shinyApp(ui = ui, server = server)

我使用一個函數plot.medals2獲得一個獎牌矢量，開始年份，結束年份，國家和返回圖形的繪圖。

來源

2016-07-30 idf4floor

也許增加'plot.medals2'會有所幫助。另外，你的空畫是什麼意思？你看到的軸，但沒有線或只是一個空白？ – Dambo

我沒有看到該軸只是一個空白的灰色空間與情節標題 – idf4floor

我相信添加'plot.medals2'會有所幫助。 – Dambo

由於您沒有發佈完整的代碼，因此我重新創建了一個使用Iris數據集的示例。我猜下面的代碼回答你的問題...

library(shiny) 
library(ggplot2) 
library(dplyr) 

ui <- shinyUI(fluidPage(

    # Application title 
    titlePanel("Checkbox example"), 
    fluidRow(
      column(3,checkboxGroupInput("example", label = strong("Species"), 
             choices = levels(iris$Species), 
             selected = levels(iris$Species)))), 
    fluidRow(
      mainPanel(plotOutput('coolplot'),width = '40%')) 


)) 



server <- shinyServer(function(input, output) { 

    irisSubset <- reactive({ 
      validate(
        need(input$example != "", 'Please choose at least one feature.') 
      ) 
      filter(iris, Species %in% input$example) 
    }) 

    output$coolplot<-renderPlot({ 
      gg <- ggplot(irisSubset(), aes(x = Species, y = Sepal.Length)) 
      gg <- gg + geom_boxplot() 
      print(gg) 
    }) 

}) 

# Run the application 
shinyApp(ui = ui, server = server)

來源

2016-07-31 17:11:51

未在閃亮應用中選中複選框

回答

相關問題