From 3a46b45fa1cf4415bb68bcbf6b69e7afe7a07952 Mon Sep 17 00:00:00 2001
From: mrustl <michael.rustler@kompetenz-wasser.de>
Date: Wed, 10 Jul 2024 14:40:28 +0200
Subject: [PATCH] Fix :bug:

---
 R/extend_soil_profile.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/extend_soil_profile.R b/R/extend_soil_profile.R
index 76a49c8..ef01877 100644
--- a/R/extend_soil_profile.R
+++ b/R/extend_soil_profile.R
@@ -47,6 +47,8 @@ extend_soil_profile <- function(df, x_end) {
     combined_df <- if(shorten_profile) {
       dplyr::bind_rows(df, new_df)
     } else {
+      new_df <- new_df[-1,]
+      new_df$node_id <- new_df$node_id - 1
       dplyr::bind_rows(df, new_df[-1,])
     }
     sorted_df <- dplyr::arrange(combined_df, node_id)