inst/UI/argos/Gallinago_media/ui.R

In mpio-be/sdbvis: Sdb package extensions

miniPage(

gadgetTitleBar("", 
    right= selectInput('mapID', NA, leafletBaseMap()$type  , leafletBaseMap('Satellite')$type),
    left = div(class="form-inline",
            strong('PTT:'), 
            selectInput('tagID', NA,  c( 'ALL', ptt) , multiple = FALSE) )

    ),
 


  miniContentPanel(padding = 0,
    leafletOutput("map", height = "100%")
  )




)