Screen Height Demo

app.R

library(shiny)

ui <- fluidPage(
  textOutput("height"),
  
  tags$script('
    $(window).bind("resize", function () { 
      Shiny.onInputChange("height", $(document).height());
      
    });'
  )
)

server <- function(input, output){
  
  
  output$height <- renderText({
     input$height       
  })
  
}

shinyApp(ui, server)