refactor: remove unecessary lines

R/Calibration.GRiwrmInputsModel.R

@@ -202,18 +202,6 @@ updateParameters4Ungauged <- function(GaugedId,
   return(list(InputsModel = InputsModel, RunOptions = RunOptions))
 }
 
-updateRunOptions4Ungauged <- function(id, RunOptions) {
-  # Remove nodes outside of reduced network
-  RunOptions <- lapply(RunOptions, function(RO) {
-    if(RO$id %in% g$id) {
-      IM
-    } else {
-      NULL
-    }
-  })
-  return(RunOptions)
-}
-
 
 #' RunModel for a sub-network of ungauged nodes
 #'

tests/testthat/helper_RunModel.R

@@ -36,7 +36,6 @@ setupRunModel <-
     if(is.null(griwrm)) {
       nodes <-
         Severn$BasinsInfo[, c("gauge_id", "downstream_id", "distance_downstream", "area")]
-      nodes$distance_downstream <- nodes$distance_downstream
       nodes$model <- "RunModel_GR4J"
       griwrm <-
         CreateGRiwrm(nodes,

vignettes/V02_Calibration_SD_model.Rmd

@@ -44,7 +44,6 @@ The method used for producing the `GRiwrmInputsModel` object is detailed in the
 ```{r}
 data(Severn)
 nodes <- Severn$BasinsInfo[, c("gauge_id", "downstream_id", "distance_downstream", "area")]
-nodes$distance_downstream <- nodes$distance_downstream
 nodes$model <- "RunModel_GR4J"
 griwrm <- CreateGRiwrm(nodes, list(id = "gauge_id", down = "downstream_id", length = "distance_downstream"))
 BasinsObs <- Severn$BasinsObs

vignettes/V03_Open-loop_influenced_flow.Rmd

@@ -51,7 +51,6 @@ The creation of the `GRiwrm` object is detailed in the vignette "V01_Structure_S
 ```{r}
 data(Severn)
 nodes <- Severn$BasinsInfo[, c("gauge_id", "downstream_id", "distance_downstream", "area")]
-nodes$distance_downstream <- nodes$distance_downstream
 nodes$model <- "RunModel_GR4J"
 ```