I have the following reproducible code :
library(shiny) ui <- fluidPage( fluidRow( column(3, align="left", # Input: Quantile --