листовка и блестящий HTML виджет ошибочно отображаются - PullRequest
Новая
       11

листовка и блестящий HTML виджет ошибочно отображаются

0 голосов
/ 13 июня 2018

Я недавно изучаю буклет для R. Сначала все было в порядке, я изменил код и запустил свое приложение взад-вперед.

Но после одной определенной модификации я обнаружил, что мой HTML-виджет листовки не может бытьправильно отображается, и я не был уверен, что я сделал ...

Даже если я очистил рабочий каталог, скопировал весь учебный код и запустил это приложение, HTML-виджет все ещеперекошен к вершине холста.

Инспектор показывает предупреждение и сбой.

screenshot

После поиска какого-либо решения мне удалось устранить ошибку, добавив tags$head(tags$link(rel="shortcut icon", href="#")) в разделе пользовательского интерфейса.

Но проблемавсе еще подошел.: ((

Я не знаю, как отследить предупреждение, Synchronous XMLHttpRequest on the main thread is deprecated because of its detrimental effects to the end user's experience. For more help, check https://xhr.spec.whatwg.org/.

Я пытался переустановить Rstudio и R, но все еще не использовал.

Буду признателен за любую помощь.

Спасибо.

--- update ---

Я обнаружил, что код работает нормально в программе просмотра RStudio, но когда я открываю в браузере,проблема проявляется.

Вот код: 

library(shiny)
library(leaflet)

r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()

ui <- fluidPage(
  leafletOutput("mymap"),
  p(),
  actionButton("recalc", "New points")
)

server <- function(input, output, session) {

  points <- eventReactive(input$recalc, {
    cbind(rnorm(40) * 2 + 13, rnorm(40) + 48)
  }, ignoreNULL = FALSE)

  output$mymap <- renderLeaflet({
    leaflet() %>%
      addProviderTiles(providers$Stamen.TonerLite,
        options = providerTileOptions(noWrap = TRUE)
      ) %>%
      addMarkers(data = points())
  })
}

shinyApp(ui, server)
...