Я работаю с блестящей (блестящей приборной панелью), а также делаю прогноз своего набора данных через пакет пророка. Блестящий работает отлично, и мой прогноз тоже. Теперь я хотел бы вставить код в блестящий, чтобы построить график прогноза внутри блестящего. Это не работает вывод на блестящем приложении просто белый и не показывает вывод.
код сервера:
output$fcCrime <- renderPlot({
Year12_16 <- cc[cc$Year2 %in% c("2012", "2013", "2014", "2015", "2016"),]
df <- Year12_16 %>% group_by(Date2) %>% summarise(y = n()) %>% mutate(y = log(y))
names(df) <- c("ds", "y")
df$ds <- factor(df$ds)
m <- prophet(df)
future <- make_future_dataframe(m, 365*4)
forecast <- predict(m, future)
tail(forecast[c('ds', 'yhat', 'yhat_lower', 'yhat_upper')])
#plot(m, forecast, xlabel = "Year", ylabel = "Data")+ggtitle("Forecast of Crimes in Chicago")
dyplot.prophet(m, forecast)
#prophet_plot_components(m, forecast)
})
ОБНОВЛЕНИЕ: Работа с этим набором данных: https://www.kaggle.com/currie32/crimes-in-chicago
Также обновляет код сервера. Дело в том, что без блестящего все работает и работает нормально, но внутри блестящего приложения ничего не отображается на блестящей приборной панели.