我正在尝试将闪亮的应用程序部署到Shinyapps.io服务器。该应用程序在2004年和2005年的两个不同年份中为两个不同的指标创建了丹麦地图。要创建地图,我使用了名为DKDK的软件包,该软件包来自GitHub:
devtools::install_github("sebastianbarfort/mapDK")
该应用似乎在本地运行良好,但是当我尝试将该应用部署到服务器时,出现以下错误消息:
“错误:发生了错误。请检查您的日志或与应用作者联系以进行澄清。”
该错误很可能是由于使用GitHub软件包“ mapDK”而产生的,但是我不知道如何解决它。论坛上有关启动带有GitHub软件包的闪亮应用程序的其他解决方案似乎无法解决问题。
library(shiny)
library(mapDK)
navn<-c("koebenhavn","frederiksberg","ballerup","broendby","dragoer")
navn<-c(navn,navn)
year<-c(rep(2003,5),rep(2004,5))
indicator1<-1:10
indicator2<-10:1
data<-data.frame(cbind(navn,year,indicator1,indicator2))
ui<-fluidPage(
radioButtons(inputId="x",label="Indicator",c("Indicator 1"="indicator1","Indicator 2"="indicator2")),
sliderInput(inputId="y",label="Year",min=2003, max=2004,value=2003,step=1),
plotOutput("plot")
)
server<-function(session,input,output){
output$plot<-renderPlot({
mapDK(values=input$x,id="navn",data=data[data$year==input$y,], map.title=paste(input$x,"in",input$y), guide.label="")
})
}
shinyApp(ui=ui,server=server)