输出未显示为“闪亮”

编程问答 2022-06-13

问题描述

我编译了以下代码，以在R Script中将输出显示为GGmap。该代码运行正常，但未显示输出。 任何人都可以请您帮忙。我一直在尝试找出错误，但仍然无法解决。如果有人可以帮助我，请感谢。预先谢谢你。

    #### Below Code ####
    ## Libraries

   library(ggmap)
   library(shiny)
            
    bBox = c(left=-95.8,bottom=29.4,right=-95.0,top=30.0)
    map <- get_stamenmap(bBox,zoom = 10,source="stamen")
    
    ui <- fluidPage(
      titlePanel("Crime Offences"),sidebarPanel('Navigator',checkBoxGroupInput("crime_type",label = "Select offense type:",choices = list("Aggravated Assault" = 'aggravated assault',"Auto Theft" = 'auto theft',"Burglary" = 'burglary',"Murder" = 'murder',"Rape" = 'rape',"Robbery" = 'robbery'),selected = 'Intel'),daterangeInput("date_range",label = "Select time period:",start = "2010-01-01",end = "2010-08-31",min = "2010-01-01",max = "2010-08-31",format = "mm/dd'yy",separator = " - ")),mainPanel('Crime Data information',plotOutput("crime_data_final")),position = 'left')
    
    
    server <- function(input,output){
      output$crime_data_final <- renderPlot(
        
        ggmap(map) + stat_density2d(data = subset(crime_data,offense == input$crime_type),aes(x = "date",y = input$crime_type) +
          scale_fill_gradient(low = "green",high = "red") +
          scale_alpha_continuous(range = c(0,0.8)) +
          geom_point(data = subset(crime_data,y = input$crime_type),size = 0.5) + 
          guides(fill = FALSE,alpha = FALSE) +
          ggtitle('Crime in Houston TX',subtitle = 'Murders are concentrated around two areas in the city'))
      )
    }
    
    ## Executing the app
    
    shinyApp(ui = ui,server = server)

下面是输出

example output

解决方法

由于您没有提供crime_data，因此难以测试，但请尝试替换日期格式：

 dateRangeInput("date_range",label = "Select time period:",start = "2010-01-01",end = "2010-08-31",min = "2010-01-01",max = "2010-08-31",format = "mm/dd'yy",separator = " - "))

作者

 dateRangeInput("date_range",format = yyyy-mm-dd",separator = " - "))
,

问题在于datePicker不允许您输入开始日期，这会在服务器和ui之间中断某些内容，请尝试将datepicker更改为此类内容。

dateRangeInput("date_range",min = "2009-31-12",separator = " - ")
ggmapggplot2rrrscriptshiny