Radio buttons for the types in the legend
getLegendRadio(id)
id,
namespace id
radio control
getLegendRadio
x <- getLegendRadio("deprog")