diff --git a/NEWS.md b/NEWS.md index c6fe2ab..f621e28 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,5 +1,8 @@ # SMHvalidation (development version) +- fix bug in `check_df_values_required()` dealing with model task containing + multiple output types. + # SMHvalidation 1.1.0 - add `store_msg_val()` function to store `validate_submission()` function diff --git a/R/test_req_value.R b/R/test_req_value.R index 7f736a4..62ad39a 100644 --- a/R/test_req_value.R +++ b/R/test_req_value.R @@ -76,7 +76,6 @@ extract_output_type <- function(x) { outtype_df } - create_table <- function(list_targ, outtype_df) { if (length(purrr::compact(list_targ[!names(list_targ) %in% names(outtype_df)])) == 0) { @@ -84,6 +83,7 @@ create_table <- function(list_targ, outtype_df) { } else { req_df <- purrr::compact(list_targ) |> expand.grid() |> + dplyr::mutate_all(as.character) |> tidyr::pivot_longer(tidyr::all_of(names(outtype_df)), names_to = "output_type", values_to = "output_type_id")