2018 年部署在 shinyapps.io 上的闪亮应用在 2019 年无法在本地运行

shiny app deployed in 2018 on shinyapps.io not working locally in 2019

我在 2018 年期间从事历史奴隶制地图闪亮应用程序项目。

我闪亮的应用已成功部署在 shinyapps.io 上。你可以看看我的项目here

今天,我想升级我的应用程序,但不幸的是 UI 无法在本地运行(白屏、无模态 window 等...here

我从 Shinyapps.io 下载我的应用程序包以使用 2018 年使用的 packrat 和隔离包版本但没有成功。我不清楚该怎么做。在 Rstudio 的 Packages > Packrat > Options project > local repositories 字段中。我必须指出捆绑包的 packrat 文件夹的路径吗?

这是地图中使用的包

library(shiny)
library(shinyWidgets)
library(leaflet)
library(dplyr)
library(dygraphs)
library(DT)
library(readr)
library(shinyjs)
library(shinyBS)
library(htmltools)
library(bsplus)
library(leaflet.extras)
library(dplyr)
library(tidyr)
library(readxl)

我的 shinyapps 包 tar 在我的 github here

packrat.int() 应该处理所有路径。但是,我认为问题出在 shinybs 包中的 bsModal 函数。如果您在您的应用程序中评论这部分代码,它就可以工作。

 shinyBS::bsModal(
    id = "startupModal",
    trigger = "",
    size = "large",
    tags$style(type = "text/css", "a { font-size: 12px; }"),
    tags$style(type = "text/css", "p { font-size: 12px; font-weight: bold; margin-bottom: 0px; }"),
    tags$style(type = "text/css", "hr { height: 1px;background: #8c8c8c; opacity: 1;}"),
    tags$h1("Principaux lieux de la traite atlantique"),
    tags$h4("Port de départ des expéditions, lieux d'achat et de débarquement des esclaves"),
    tags$h5("Lorem ipsum dolor sit amet, Phasellus vitae risus at mi semper accumsan. Vestibulum ullamcorper est quis nulla rutrum, non laoreet urna placerat. Praesent volutpat elit quam, egestas faucibus leo vulputate eget. Cras sit amet magna justo. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Donec lobortis elit eget tempus feugiat. Praesent nec cursus odio. Vivamus ornare eget ipsum a interdum. Curabitur convallis feugiat nulla, eget sodales lorem molestie ut. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Etiam aliquet placerat lorem, id placerat orci auctor commodo. In metus lorem, ullamcorper volutpat congue in, tristique ac orci. Integer sed magna sed nisl maximus placerat. Vivamus nec eleifend nisi. Cras molestie sagittis tempor. Quisque quis sagittis massa."),
    tags$hr(),
    tags$p("Source des données  :  "), tags$a(class = "lien", href = "http://www.slavevoyages.org/", "The Trans-Atlantic Slave Trade Database (2010), Emory University, Données historiques (Domaine publique) - Données substituées (cc by-nc)"),
    tags$br(),
    tags$p("Couches cartographiques historiques  : "),
    tags$a("David Rumsey Map Collection", href = "https://www.davidrumsey.com/"),
    tags$br(),
    tags$p("Conception : "),
    tags$a("Wilfrid Cariou (2018)", href = "http://www.histoire.univ-nantes.fr/", "Université de Nantes, Département d'Histoire"),
    tags$br(),
    img(src = "index.jpg", width = "60", align = "left")
  ),

如果你查看broswer JS 控制台按F12 chrome 或firefox,你可以看到shinybs 导致的错误。这是一些 , 错误。但是,您可以在 shiny app

之外定义模态函数