# NOT RUN {
crunchPage(
fluidRow(
column(6,
selectInput("filter",
label="Filter",
choices=filterList,
selected="All"),
br(),
plotOutput("funnel1", height="300"),
),
column(6,
selectInput("brand",
label="Competitor",
choices=brands,
selected="Nike"),
br(),
plotOutput("funnel2", height="300"),
)
)
)
# }
Run the code above in your browser using DataLab