I have created a shiny app that was able to run locally, but unable to load at shinyapp.io.
Error Message: Unable to connect to worker after 60.00 seconds; startup took too long.
library(shiny)
library(ggplot2)
library(readxl)
library(xts)
library(plotly)
data <- read_excel("N_Calendar_App.xlsx")
temp_data <- data
institutions <- unique(data$Tag)
ui <- fluidPage(
titlePanel("MASA National Calendar"),
sidebarLayout(
sidebarPanel(
checkboxGroupInput('institution','Institution',institutions,institutions),
dateRangeInput("date","Date Range","2019-01-01","2019-12-31"),
actionButton("update","Update"),
#actionButton("add","Add"),
width=3
),
mainPanel(
plotlyOutput('calendar'),
width=9
)
)
)
server <- function(input,output){
data=eventReactive(input$update,{
temp_data[temp_data$Tag %in% input$institution &
as.Date(temp_data$Date)>input$date[1]&
as.Date(temp_data$Date)<input$date[2],]
})
output$calendar <- renderPlotly({
plot=ggplot(data(),aes(x=Date,y=Tag,colour=Category,text=paste(Date,",",Status)))+
geom_point(,size=4)+
labs(x="",y="",colour="")+
theme_light()
ggplotly(plot,tooltip='text')
})
}
shinyApp(ui=ui,server=server)