diff --git a/R/prj_medium.R b/R/prj_medium.R index ef0d323217acd4546bfedb6d72401e9467d2d0e3..e475b435d63943b2adf5e7eebe01c71d69324667 100644 --- a/R/prj_medium.R +++ b/R/prj_medium.R @@ -522,14 +522,14 @@ new_prj_ph_property <- function(name, are_null_or_strings(parameter_name, curve) - if (!is.null(independent_variable)) { - independent_variable <- lapply(independent_variable, function(x){ - x <- coerce_names(x, - c("variable_name", - "reference_condition", - "slope")) - }) - } + # if (!is.null(independent_variable)) { + # independent_variable <- lapply(independent_variable, function(x){ + # x <- coerce_names(x, + # c("variable_name", + # "reference_condition", + # "slope")) + # }) + # } if (!is.null(exponent)) { exponent <- coerce_names(exponent,