R блестящее приложение показывает только половину страницы в браузере - PullRequest
Новая
       6

R блестящее приложение показывает только половину страницы в браузере

0 голосов
/ 05 ноября 2018

Я проверил сообщение Блестящее приложение - только половина окна браузера , и я попробовал предложение JJ1603. Я добавил 

options = list(height = 1080)

но моя карта все еще показывает половину страницы в браузере.

Я тоже пробовал 

library("htmlwidgets")

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

# Run the application 
shinyApp(ui = ui, server = server, options = list(height = window_height, width = window_width))

но он все еще не работает.

мой код 

# Define UI for application
ui <- fluidPage(     
  leafletOutput("mymap")
)

# Define server
server <- function(input, output) {     
  data <- read.csv("dat.csv")    
  })


  output$mymap <- renderLeaflet({
    leaflet(data) %>%           
      addProviderTiles("Esri.WorldImagery") %>%          
      addCircleMarkers(lng = ~ long, 
                       lat= ~ lat, 
                       color = "#00d4ff", 
                       radius = factor(data$freq),
                       label = lapply(labs, HTML),
                       clusterOptions = markerClusterOptions()
      )
  })
}
# Run the application 
# shinyApp(ui, server)
shinyApp(ui = ui, server = server, options = list(height = window_height, width = window_width))

1 Ответ

0 голосов
/ 05 ноября 2018

Это сработало: 

ui <- fluidPage(

  leafletOutput("mymap", height = "95vh")
)

Спасибо Джиму Тодду =)

...