checkboxExponentsWolf <-
  fluidRow(column(1, checkboxInput("legendW", "Legend", FALSE)),
           column(1, NULL),
           column(1, checkboxInput("exp1W", "1", FALSE)),
           column(1, checkboxInput("exp2W", "2", FALSE)),
           column(1, checkboxInput("exp3W", "3", FALSE)),
           column(1, checkboxInput("exp4W", "4", FALSE)),
           column(1, checkboxInput("exp5W", "5", FALSE)),
           column(1, checkboxInput("exp6W", "6", FALSE)),
           column(1, checkboxInput("exp7W", "7", FALSE)),
           column(1, checkboxInput("exp8W", "8", FALSE)),
           column(1, checkboxInput("exp9W", "9", FALSE)),
           column(1, checkboxInput("exp10W", "10", FALSE))
           )
