Need help on Shiny R app.

I need to add multiple condition in conditional panel. Kindly find the below example for reference,

UI Part
=======
library(shiny)
library(shinythemes)


shinyUI(fluidPage(theme = shinytheme("cerulean"),

img(src='logo.jpg', align = "right"),

titlePanel("Project1", "center"),


sidebarLayout(
sidebarPanel(
tags$head(
tags$style(type="text/css", "select { max-width: 375px; }"),
tags$style(type="text/css", ".span4 { max-width: 320px; }"),
tags$style(type="text/css", ".well { max-width: 430px; }")
),

radioButtons("source", "Source Type:", c("online", "offline")),

conditionalPanel(
condition = "input.source == 'online'",
selectInput("e_source", "online_Source",
list("Yahoo",
"CNBC",
"Others",
), selected = "CNBC")),

conditionalPanel(
condition = "input.source == 'offline'",
selectInput("e_source", "offline_Source",
list("Newspaper",
"magazines",
"books"), selected = "books")),

checkboxGroupInput("size",
label = ("aAd size"),
choices = list("Medium", "Large", "small"
), selected = "small")),

mainPanel(
tabsetPanel("tab",
tabPanel("Ad Details", tableOutput("table1"))
)
)
)
)
)


server part
==========

library(shiny)
library(dplyr)

setwd("location for reading the file")

data_shiny_mon_abs <- read.csv("file name")


shinyServer(function(input, output) {

output$table1 <- renderTable({
filter(data_shiny_mon_abs, Source_Description == input$source, medium == input$e_source, size_Details %in% input$size)

})
})

My doubt with respect to above code is if select my source as "online" the data gets filtered out and i can view the result. But, If select "offline" the rendertable is now showing any values..

KIndly help me to figure out as what is going wrong in my code....

Reference genome
Hey anyone know what is a "direct download link of Reference gene and Reference genome of a sample" on which RNA-seq has been done ?
Wait while more posts are being loaded