Получить размер окна в Shiny

Question

Я хотел бы определить размер окна браузера в Shiny, чтобы помочь мне лучше расположить мои сюжеты. В частности, я хотел бы определить соотношение сторон окна, чтобы увидеть, сколько Div я должен распределить по экрану, и это все еще выглядит красиво. Первоначально я думал, что количество участков будет floor(width/(height-navbar_height)),

Я кое-что искал, и в настоящее время я не могу найти возможное решение, и в настоящее время я считаю, что эта функция просто отсутствует в структуре clientData. Какие-нибудь мысли?

Answer 1

Смотрите пример ниже. Он использует Javascript для определения размера окна браузера (начального размера и любого изменения размера) и использования Shiny.onInputChange отправить данные на сервер для обработки кода. Оно использует shiny:connected событие, чтобы получить начальный размер окна, как Shiny.onInputChange не готов к использованию, пока блестящий не подключен.

library(shiny)

# Define UI for application that draws a histogram
ui <- shinyUI(fluidPage(

   # Application title
   titlePanel("Old Faithful Geyser Data"),

   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         tags$head(tags$script('
                                var dimension = [0, 0];
                                $(document).on("shiny:connected", function(e) {
                                    dimension[0] = window.innerWidth;
                                    dimension[1] = window.innerHeight;
                                    Shiny.onInputChange("dimension", dimension);
                                });
                                $(window).resize(function(e) {
                                    dimension[0] = window.innerWidth;
                                    dimension[1] = window.innerHeight;
                                    Shiny.onInputChange("dimension", dimension);
                                });
                            ')),
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30)
      ),

      # Show a plot of the generated distribution
      mainPanel(
         verbatimTextOutput("dimension_display"),
         plotOutput("distPlot")
      )
   )
))

# Define server logic required to draw a histogram
server <- shinyServer(function(input, output) {
   output$dimension_display <- renderText({
       paste(input$dimension[1], input$dimension[2], input$dimension[2]/input$dimension[1])
   })

   output$distPlot <- renderPlot({
      # generate bins based on input$bins from ui.R
      x    <- faithful[, 2] 
      bins <- seq(min(x), max(x), length.out = input$bins + 1)

      # draw the histogram with the specified number of bins
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
   })
})

# Run the application 
shinyApp(ui = ui, server = server)

Answer 2

С 2021 года есть новый и гораздо более простой способ сделать это: использовать пакет {shinybrowser}. Пример:

      library(shiny)

ui <- fluidPage(
  shinybrowser::detect(),
  "Window size:",
  textOutput("size")
)

server <- function(input, output, session) {
  output$size <- renderText({
    paste(
      shinybrowser::get_width(),
      "x",
      shinybrowser::get_height()
    )
  })
}

shinyApp(ui, server)

Обратите внимание, что {shinybrowser} в настоящее время находится только на GitHub и еще не на CRAN (должно появиться в ближайшем будущем)

Answer 3

Укороченная версия для получения размеров окна в блестящем с JS из пакета htmlwidgets:

window_height <- JS('window.innerHeight')
window_width <- JS('window.innerWidth')