使用 st_as_sf() 绘制等高线在本地 Shiny 中有效，但在 shinyapps.io 中无效

Question

我在 shinyapps.io 中使用 st_as_sf() 绘制等高线时遇到问题。我检查了所有包的依赖项，什么也没有。我知道那是在 st_as_sf() 中，因为在我的所有数据集中，一些等高线图有效并且我的 stands_extent 文件没有任何几何问题。

我的情节在本地 Shiny RStudio 中运行良好：

但在 shinyapps.io 上发布后：

我在下面的示例仅使用 Unique ID CERROCOROADO_003A 情节：

# Packages
require(rgdal)
require(shiny)
require(ggplot2)
require(ggpubr) 
require(dplyr)
require(shinythemes)
require(ggspatial)
require(sf)
require(maptools)
require(lubridate)


# get AOI
download.file(
  "https://github.com/Leprechault/trash/raw/main/stands_example.zip",
  zip_path <- tempfile(fileext = ".zip")
)
unzip(zip_path, exdir = tempdir())

# Open the files
setwd(tempdir())
stands_extent <- readOGR(".", "stands_target") # Border
stands_ds <- read.csv("pred_target_stands.csv", sep=";") # Data set
stands_ds <- stands_ds %>%
  mutate(DATA_S2 = ymd(DATA_S2))


# Create the shiny dash
ui <- fluidPage(
  theme = shinytheme("cosmo"),
  titlePanel(title="My Map Dashboard"),  
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "selectedvariable0",
                  label = "Type", 
                  choices = c(unique(stands_ds$PEST)),selected = TRUE ),
      selectInput(inputId = "selectedvariable1",
                  label = "Date", 
                  choices = c(unique(stands_ds$DATA_S)),uiOutput("selectedvariable0")),
      selectInput(inputId = "selectedvariable2",
                  label = "Project", 
                  choices = c(unique(stands_ds$PROJETO)),uiOutput("selectedvariable1")),
      selectInput(inputId = "selectedvariable3",
                  label = "Stand", 
                  choices = c(unique(stands_ds$CD_TALHAO)),selected = TRUE),
      selectInput(inputId = "selectedvariable4",
                  label = "Unique ID", 
                  choices = c(unique(stands_ds$ID_UNIQUE)),selected = TRUE)
    ),
    mainPanel(
      textOutput("idSaida"),
      fluidRow(
        splitLayout(plotOutput("myplot"))),
      dateInput(inputId = "Dates selection", label = "Time")
    )
  )
)
server <- function(input, output){
  
  currentvariable0 <- reactive({input$selectedvariable0})
  currentvariable1 <- reactive({input$selectedvariable1})
  currentvariable2 <- reactive({input$selectedvariable2})
  currentvariable3 <- reactive({input$selectedvariable3})
  currentvariable4 <- reactive({input$selectedvariable4})
  
  output$myplot <- renderPlot({
    
    #Subset stand
    stands_sel <- subset(stands_extent, stands_extent@data$ID_UNIQUE==currentvariable4())
    
    #Subset for input$var and assign this subset to new object, "fbar"
    ds_sel<- stands_ds[stands_ds$ID_UNIQUE==currentvariable4(),]
    
    #Create a map
    polys <- st_as_sf(stands_sel)
    ggplot() +
      geom_sf(data=polys) +
      geom_point(data=ds_sel,
                 aes(x=X, y=Y), color="red") +
      xlab("Longitude") + ylab("Latitude") +
      coord_sf() +
      theme_bw() +
      theme(text = element_text(size=10)) 
  }) 
}
shinyApp(ui, server)
##

拜托，有什么解决办法吗？

Answer 1

缺少 rgeos 包。将此添加到您的代码中。

library(rgeos)

这里正在开发 shinyapps。

使用 st_as_sf() 绘制等高线在本地 Shiny 中有效，但在 shinyapps.io 中无效

Plot contour lines using st_as_sf() work in local Shiny but not on shinyapps.io

r

shiny

sf

shinyapps