checkboxExponentsGrond <-
  fluidRow(column(1, checkboxInput("legendG", "Legend", FALSE)),
           column(1, NULL),
           column(1, checkboxInput("exp1G", "1", FALSE)),
           column(1, checkboxInput("exp2G", "2", FALSE)),
           column(1, checkboxInput("exp3G", "3", FALSE)),
           column(1, checkboxInput("exp4G", "4", FALSE)),
           column(1, checkboxInput("exp5G", "5", FALSE)),
           column(1, checkboxInput("exp6G", "6", FALSE)),
           column(1, checkboxInput("exp7G", "7", FALSE)),
           column(1, checkboxInput("exp8G", "8", FALSE)),
           column(1, checkboxInput("exp9G", "9", FALSE)),
           column(1, checkboxInput("exp10G", "10", FALSE))
           )
