Fix mat props generation in write_profile()

KWB-R · Jul 10, 2024 · 05f6eb8 · 05f6eb8
1 parent b6a55bc
commit 05f6eb8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/write_profile.R b/R/write_profile.R
@@ -99,7 +99,7 @@ write_profile <- function(profile,
 
   n_materials <- length(unique(profile$profile$mat))
 
-  if(nrow(profile$mat_props) != length(unique(profile$profile$mat)) &  min(profile$profile$x) != min(profile$mat_props$mat_depth)) {
+  if(nrow(profile$mat_props) != length(unique(profile$profile$mat)) |  min(profile$profile$x) != min(profile$mat_props$mat_depth)) {
     profile$mat_props <- tibble::tibble(mat_id = unique(profile$profile$mat),
                    mat_depth = if(n_materials > 1) {
                      c(rep(0, n_materials-1), min(profile$profile$x)