R Shiny - Warning: Error in if: missing value where TRUE/FALSE needed

Question

I have the following code executing in my server function:

``

# Integral of xf(x)
Sxfx <- 0

for(i in 1:501)
{
  
  sumxfx <- 0
  
  for(j in 1:i)