ui = fluidPage( radioButtons(\'Radio\', label = h3("Radio buttons"), choices = list("Choice 1" = co2flet, "Choice 2" = gflet), selecte