refactor: cleaning and polishing
This commit is contained in:
@@ -3,7 +3,6 @@ box::use(
|
||||
modules/utils,
|
||||
)
|
||||
|
||||
|
||||
#' @export
|
||||
load_data_to_form <- function(
|
||||
df,
|
||||
@@ -16,10 +15,6 @@ load_data_to_form <- function(
|
||||
input_ids <- names(mhcs()$get_id_type_list(table_name))
|
||||
if (missing(ns)) ns <- NULL
|
||||
|
||||
# transform df to list
|
||||
# loaded_df_for_id <- as.list(df)
|
||||
# loaded_df_for_id <- df[input_ids]
|
||||
|
||||
# rewrite input forms
|
||||
purrr::walk2(
|
||||
.x = input_types,
|
||||
|
||||
Reference in New Issue
Block a user