传单和闪亮的html小部件错误地呈现

Question

我最近正在为R学习传单。首先一切都很好，我修改了代码并来回运行我的应用程序。

但经过一次修改，我发现我的传单html小部件无法正确呈现，我不知道我做了什么...

即使我清除了工作目录，复制了整个tutorial code并运行了该应用程序，html小部件仍然偏向画布的顶部。

检查员显示警告和失败。

在Google搜索某些解决方案后，我设法通过在UI部分添加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但仍然没有用。

任何帮助都将不胜感激。

感谢。

---更新---

我发现代码在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)