Strange Error Message...

[nerdybaseballguy]

Hi all, I'm pretty new to shiny and I just published my first app. In the console, it worked 100% fine, but now that I've published it, I'm getting an odd error message that I'm not fully understanding. (I did not get this error in the console). If you could shed some light on the error, I would very much appreciate it. Basically, from a command buttom, I'm running the following code to use this custom function:

ApplyModels=function(Result){
    ConfR=CalculateConfChamp(Result)
    
    ConfR=ConfR %>%
        arrange(-ConfR$SimmedRPI)
    ###Set Simulated RPI Rankings
    rank=1
    for(i in 1:nrow(ConfR)){
        ConfR[i,10]=rank
        rank=rank+1
    }
    ConfR=ConfR %>%
        rename(Rank=10)
    ConfR$`Win%`=ConfR$SimmedWins/(ConfR$SimmedWins+ConfR$SimmedLosses)
    
    PredictR=ConfR %>%
        select("Rank","Team","conference","Win%","ConfChamp")
    PredictR=PredictR %>%
        rename(
            Name=Team,
            Conf=conference,
            `Conf Champ?`=ConfChamp
        )
    
    #if(exists('Probabilities')==TRUE){Probabilities=Probabilities[0,]}
    #Probabilities=predict(model3,PredictR[1,],"prob")
    for(i in 1:nrow(PredictR)){
        tryCatch({
            message("Calculating Probabilities from Present Results",paste(" ",round((i/nrow(PredictR))*100,digits = 1),"% Complete",sep = ""))
            Row=predict(model3,PredictR[i,],"prob")
            Row$Team=PredictR[i,2]
            if(i==1){Probabilities=Row}
            #Error here....
            if(i!=1)Probabilities=rbind(Row,Probabilities)
        },error=function(e){})
    }
    
    #view(Probabilities)
    FinalR=merge.data.frame(Probabilities,ConfR,all.y = TRUE,by.x = "Team",by.y = "Team")
    FinalR=FinalR %>%
        rename(
            AutoProbSim=A,
            AtLargeProbSim=L,
            NoBidProbSim=N,
            SeedProbSim=S,
        )
    
    Actu=FinalR %>%
        select("Team","ActualWins","ActuallLosses","ActualRPI","conference")
    Actu$`Win%`=Actu$ActualWins/(Actu$ActualWins+Actu$ActuallLosses)
    Actu=Actu %>%
        arrange(-Actu$ActualRPI)
    ##Set Actual RPI Rankings
    rank=1
    for(i in 1:nrow(Actu)){
        Actu[i,7]=rank
        rank=rank+1
    }
    Actu=Actu %>%
        rename(
            Rank=7
        )
    Actu=Actu %>%
        select("Rank","conference","Win%","Team")
    Actu=Actu %>%
        rename(Conf=conference)
    
    Probabilities=Probabilities[0,]
    ##Get Actual Probabilities
    for(i in 1:nrow(Actu)){
        tryCatch({
            message("Calculating Probabilities from Simulation Results",paste(" ",round((i/nrow(Actu))*100,digits = 1),"% Complete",sep = ""))
            Row=predict(InSeason,Actu[i,],"prob")
            Row$Team=Actu[i,4]
            Probabilities=rbind(Row,Probabilities)
        },error=function(e){})
    }
    
    FinalR=merge.data.frame(Probabilities,FinalR,all.y = TRUE,by.x = "Team",by.y = "Team")
    FinalR=FinalR %>%
        rename(
            AutoProbAct=A,
            AtLargeProbAct=L,
            NoBidProbAct=N,
            SeedProbAct=S,
        )
    rm(ConfR)
    rm(Actu)
    rm(Probabilities)
    return(FinalR)
}

However, my log looks like this:
2021-01-09T00:19:15.800062+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 93.1% Complete
2021-01-09T00:19:15.821554+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 96.5% Complete
2021-01-09T00:19:15.800678+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 93.8% Complete
2021-01-09T00:19:15.821555+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 97.2% Complete
2021-01-09T00:19:15.821555+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 97.6% Complete
2021-01-09T00:19:15.821556+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 98.6% Complete
2021-01-09T00:19:15.821556+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 98.3% Complete
2021-01-09T00:19:15.821553+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 96.2% Complete
2021-01-09T00:19:15.821817+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 99.7% Complete
2021-01-09T00:19:15.821554+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 96.9% Complete
2021-01-09T00:19:15.821555+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 97.9% Complete
2021-01-09T00:19:15.827507+00:00 shinyapps[3455333]: 86: merge.data.frame
2021-01-09T00:19:15.823083+00:00 shinyapps[3455333]: Warning: Error in as.data.frame: object 'Probabilities' not found
2021-01-09T00:19:15.821556+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 99% Complete
2021-01-09T00:19:15.827517+00:00 shinyapps[3455333]: 12: fn
2021-01-09T00:19:15.821557+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 99.3% Complete
2021-01-09T00:19:15.827518+00:00 shinyapps[3455333]: 7: connect$retry
2021-01-09T00:19:15.822121+00:00 shinyapps[3455333]: Calculating Probabilities from Present Results 100% Complete
2021-01-09T00:19:15.827520+00:00 shinyapps[3455333]: 5: eval
2021-01-09T00:19:15.827506+00:00 shinyapps[3455333]: 88: as.data.frame
2021-01-09T00:19:15.827508+00:00 shinyapps[3455333]: 84: observeEventHandler [/srv/connect/apps/Monte/app.R#1361]
2021-01-09T00:19:15.827518+00:00 shinyapps[3455333]: 6: eval
2021-01-09T00:19:15.827507+00:00 shinyapps[3455333]: 85: ApplyModels [/srv/connect/apps/Monte/app.R#53]
2021-01-09T00:19:15.827508+00:00 shinyapps[3455333]: 13: runApp

If you could clarify what's going wrong, I'd greatly appreciate it. Thanks

[nerdybaseballguy]

I'm getting the error at the end of the first loop. I've tried various things (you can see the comments above), but nothing has worked. Any help appreciated.

[nirgrahamuk]

Could you format this into a reproducible example? That is a set of code or rstudio.cloud project that folks can easily get up and running to replicate your issue? Currently, this is only part of a shiny app.

IF you aren't familiar with best practices for shiny reprexes, check out

Shiny debugging and reprex guide

Shiny issues can be challenging to resolve relative to other problems with your code or statistical methods. Shiny apps are often large, complex projects with interacting files. When seeking help from others it is considered polite to: First, do your best to work through RStudio's debugging tools to diagnose your issue on your own. Often those shiny logs and tracebacks are useful to others trying to help out. Second, strive to minimize the effort required to replicate your issue. You can do this with a reproducible example ("reprex"). Shiny Debugging Errors in Shiny code can be difficult to track down. If you don't know where your problem is coming from, you can track it down with some o…

This will make it easier for folks to replicate your issue and offer suggestions to solve it.