style: fix typo in 'RunModel_Lag'

R/RunModel_Lag.R

@@ -151,7 +151,7 @@ RunModel_Lag <- function(InputsModel, RunOptions, Param, QcontribDown) {
       lastTS <- RunOptions$IndPeriod_Run[length(RunOptions$IndPeriod_Run)]
       InputsModel$Qupstream[(lastTS - floor(PT[x])):lastTS, x]
     })
-    if(is.null(OutputsModel$StateEnd)) {
+    if (is.null(OutputsModel$StateEnd)) {
       OutputsModel$StateEnd <- CreateIniStates(RunModel_Lag, InputsModel, SD = SD)
     } else {
       OutputsModel$StateEnd$SD <- SD