Hello,
I am working on "for loops" in RShiny, I want to plot its result according to selected date. However, I have difficulty in determining reactive contents in server. It didn't worked. Here is my related code in server:
server <- function(input, output){
training=reactive({dat%>% filter(as.Date(dat$Date)>=as.Date(input$daterange[1]) & as.Date(dat$Date)<=as.Date(input$daterange[2]) )})
t=0
result=reactive(data.frame())
for (i in seq(reactive(nrow(training())))){
limit2=reactive(training()$EventTime[i]+ minutes(10))
flood_test=reactive(training()%>% filter(training()$EventTime[i] <= training()$EventTime & training()$EventTime <= limit2()))
alarm_number=reactive(nrow(flood_test()))
t=t+1
result()[t,1]=i
result()[t,2]=training()$EventTime[i]
result()[t,3]=alarm_number()
}
result()=result()[!duplicated(result()$V2),]
The errors I encountered are
Error in .getReactiveEnvironment()$currentContext() :
Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)
Error in result()[t, 1] = i : invalid (NULL) left side of assignment
I did many trials but I could not make it work. Could you please help me?
Thank you