R 以闪亮的颜色显示地图

我想在Shinny（附件）中生成地图，但是根据下面的代码绘制地图时遇到问题。你能帮我看一下吗？？。可从以下网站下载shapefile文件：

如果未安装sfnetworks软件包，请访问以下网站：

多谢各位

library(shiny)
library(sf)
library(sfnetworks)
library(shinythemes)

roads = st_read("Example/Roads/Roads.shp", quiet = TRUE)
points = st_read("Example/Points/Points.shp", quiet = TRUE)
roads_trf = st_transform(roads, st_crs(points)) %>% 
  st_cast("LINESTRING")

net = as_sfnetwork(roads_trf, directed = FALSE) %>%
  activate("edges") %>%
  dplyr::mutate(weight = edge_length())

# routing 
p = sf::st_as_sf(data.frame(x = to[1], y = to[2]), coords = c("x", "y"), crs = sf::st_crs(net))
r = net %>%
  tidygraph::convert(to_spatial_shortest_paths, points[17, ], points[4, ])

# plot
plot(net)
plot <-plot(r, col = "blue", lwd = 5, add = TRUE)


ui <- bootstrapPage(
  navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
             "Cl", 
             tabPanel("Solution",
                      sidebarLayout(
                        sidebarPanel(
                         
                        ),
                        mainPanel(
                          tabsetPanel(      
                            tabPanel("Solution", (plotOutput(("Map"))))))
                        
    
           ))))

server <- function(input, output, session) {
  
  output$Map <- renderPlot({
})
}

shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（sf）
图书馆（SF网络）
图书馆（shinythemes）
roads=st_read（“示例/roads/roads.shp”，quiet=TRUE）
points=st_read（“示例/点/点.shp”，quiet=TRUE）
roads_trf=st_变换（道路、st_CR（点））%>%
st_铸造（“线串”）
净=as\U SF网络（道路\U trf，定向=FALSE）%>%
激活（“边”）%>%
dplyr:：mutate（权重=边长度（）
#路由
p=sf:：st_as_sf（数据帧（x=to[1]，y=to[2]），坐标=c（“x”，“y”），crs=sf:：st_crs（net））
r=净%>%
潮汐图：：转换（到空间最短路径，点[17，]，点[4，]）
#密谋
地块（净）
绘图
输出$Map您是否能够在
外部生成绘图。这是附加的图像。您是否尝试在
渲染图
块中移动
绘图
命令？我尝试运行您的代码，但出现以下错误：
对象“到”未找到
。您能提醒我在哪里提供了类似的代码吗？
 output$Map <- renderPlot({
    plot(net)
    plot(r, col = "blue", lwd = 5, add = TRUE)
    
    })