jscode_for_screen_Height <- '$(document).on("shiny:connected", function(e) {
                             var jsHeight = screen.height;
                             Shiny.onInputChange("GetScreenHeight",jsHeight); });'

output$viewDataCTgov <- DT::renderDataTable({
DT::datatable(data_to_render_CTgov(),
options = list(scrollX = TRUE,scrollY = paste(input$GetScreenHeight,"px",sep=""),
scrollCollapse=TRUE,pageLength =  100,searchHighlight = TRUE), escape = FALSE)
})

leafletOutput("mymap", height = XXX )

output$ScreenHeightvalue <- paste0(input$GetScreenHeight)

leafletOutput("mymap", height =(textOutput("ScreenHeightvalue")))