R Is传单包装不'；你在shinyapps.io工作吗？ 库（闪亮） 图书馆（单张） ui% 液化天然气=~경도, 拉特=~위도, 颜色=~acci_颜色(사고유형구분), 半径=20， 弹出=粘贴0（“사고장소:",acci$사고지역위치명, "발생건수:", acci$발생건수, “사상자수:“，acci$사상자수, "사망자수:", acci$사망자수, “중상자수:“，acci$중상자수, "경상자수:", acci$경상자수, “부상자수:“，acci$부상자수)) %>% addLegend（position=“bottomleft”， 标题=”사고유형", pal=acci\U颜色，值=~사고유형구분, 不透明度=1） }) } shinyApp（用户界面、服务器）

然后，我收到以下错误消息： 正在准备部署应用程序…完成 正在上载应用程序包：3199282…完成 正在为应用程序3199282部署捆绑包3840435。。。 等待任务：821153808 建筑：处理包：3840435 构建：安装软件包 构建：安装文件 建筑：推送图像：4361485 部署：启动实例 前滚：激活新实例 成功：停止旧实例 应用程序已成功部署到 部署已完成： ����޽���(��): 在fileDependencies.R（文件）中： 无法分析C:/Users/mitri/AppData/Local/Temp/RtmpEvBQ16/file1ba046ab5b1a/app.R；将找不到此文件中的依赖项

及

---

如果您将文件放在应用程序文件夹中，它将与您的应用程序一起部署。您可以尝试部署，以确保一切正常。我已经尝试过。但是，当

enter code here

library(shiny)
library(leaflet)


ui <- fluidPage(
    leafletOutput("m", height=800)
)


server <- function(input, output, session){
    
    output$m <- renderLeaflet({
        
        leaflet() %>% 
            addTiles() %>% 
            setView(lng = 126.97806, lat=37.56667, zoom=13)
        
        acci <- read.csv("C:/Users/mitri/OneDrive/Desktop/Shiny Project/accidents.csv")
        
        m <- leaflet(acci) %>% 
            setView(lng = 126.97806, lat=37.56667, zoom=13) %>% 
            addTiles() %>%
            addCircles(lng=~경도, lat=~위도, color=~acci_colour(사고유형구분), radius=20, 
                       popup=paste0("<br>사고장소:",acci$사고지역위치명, "<br>발생건수:", acci$발생건수,
                                    "<br>사상자수:", acci$사상자수, "<br>사망자수:", acci$사망자수,
                                    "<br>중상자수:", acci$중상자수, "<br>경상자수:", acci$경상자수,
                                    "<br>부상자수:", acci$부상자수)) %>% 
            addLegend(position = "bottomleft",
                      title = "사고유형",
                      pal = acci_colour, values = ~사고유형구분, opacity = 1)
    })
}

shinyApp(ui, server)