반짝이는 플롯 플롯을 올바르게 출력하는 방법은 무엇입니까?

Question

저는 뉴욕 범죄 기록 데이터를 기반으로 반짝이는 앱을 만들려고합니다. 단일 반짝 페이지 접근 방식을 사용하고 있습니다. 데이터는 다음과 같습니다. 범죄 통계를 출력 할 연도를 선택하면 어떤 이유로 RStudio의 뷰어에서만 출력되고 Shiny 팝업의 기본 패널에서는 출력되지 않습니다. 여기에 전체 코드는 다음과 같습니다

# Shiny App exploring New York City Crime Data between 2006-2016 
# Data Source: https://data.world/data-society/nyc-crime-data 

#########################Global Data###################### 

# Data Reading 
set.seed(123) 
library("shiny") 
library("lubridate") 
library("plotly") 
nypd<-read.csv("NYPD_Complaint_Data_Historic.csv") 

#Data Massaging 
nypd$year<-year(as.Date(nypd$RPT_DT,'%m/%d/%Y')) 
nypd$month<-month(as.Date(nypd$RPT_DT,'%m/%d/%Y')) 
nypd<-nypd[nypd$OFNS_DESC != "",] 
nypd2<-nypd[,c(1,6,8,14,16,17,22,23,25,26)] 

ui<-fluidPage(
titlePanel("New York City Crime Data from 2006-2016"), 
sidebarLayout(
    sidebarPanel(
    sliderInput("year","Year of Crime",min=2006,max=2016,value=2008,step = 1) 
    ), 
    mainPanel(plotOutput("crimeplot")) 
) 
) 


server<-function(input,output){ 
    output$crimeplot<-renderPlot({ 

    nypd_yr_sorted<-nypd2[nypd2$year==input$year,] 
    agg_data<-  aggregate(nypd_yr_sorted$CMPLNT_NUM,by=list(nypd_yr_sorted$OFNS_DESC),FUN=functi  on(x)length(unique(x))) 
    colnames(agg_data)<-c("Crime","Crime count") 
    bar_data<-agg_data[order(agg_data$`Crime count`, decreasing = TRUE),][1:5,] 
    plot_ly(bar_data,x=~Crime,y=~`Crime count`,type="bar",color = ~Crime) %>% layout(xaxis= list(showticklabels = FALSE)) 
    }) 

} 

shinyApp(ui = ui, server = server) 

Answer 1

Plotly 차트 plotlyOutput() 및 renderPlotly()로 렌더링됩니다.

1. 변경 mainPanel()output$crimeplot

output$crimeplot<-renderPlotly({로 변경

mainPanel(plotlyOutput("crimeplot"))에 ... 출력 : 코드에 두 가지 변화가 필요