Skip to content

Commit 44a924e

Browse files
matthewphamiltonmatthewphamilton
committed
some doc improvements
1 parent f7efab1 commit 44a924e

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

61 files changed

+393
-478
lines changed

‎NAMESPACE‎

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,6 @@
11
# Generated by roxygen2: do not edit by hand
22

33
export("%>%")
4-
export("crs_nbr_vec<-")
5-
export("merge_with_chr_vec<-")
6-
export("save_type<-")
74
export(add_ds_to_dv_repo)
85
export(add_dv_meta_to_imp_lup)
96
export(add_files_to_dv)
@@ -14,7 +11,6 @@ export(assert_matches_chr)
1411
export(assert_single_row_tb)
1512
export(bind_lups)
1613
export(bind_lups.ready4_dictionary)
17-
export(crs_nbr_vec)
1814
export(download_data)
1915
export(get_data)
2016
export(get_data.ready4_dv_import_lup)
@@ -48,7 +44,6 @@ export(make_pt_ready4_dist)
4844
export(make_pt_ready4_dv_import_lup)
4945
export(make_pt_ready4_par_struc_mape)
5046
export(make_r3_from_csv_tb)
51-
export(merge_with_chr_vec)
5247
export(read_import_from_csv)
5348
export(ready4_all_import_lup)
5449
export(ready4_dictionary)
@@ -57,7 +52,6 @@ export(ready4_dv_import_lup)
5752
export(ready4_par_struc_mape)
5853
export(remove_labels_from_ds)
5954
export(save_raw)
60-
export(save_type)
6155
export(transform_csv_col_to_ls_col)
6256
export(update_src_loc_to_url)
6357
export(update_src_loc_to_url.ready4_all_import_lup)

‎R/C3_ready4_all_import_lup.R‎

Lines changed: 39 additions & 39 deletions
Original file line numberDiff line numberDiff line change
@@ -28,52 +28,52 @@ x
2828
}
2929
#' Make prototype ready4 S3 class for tibble object lookup table of sources of raw (un-processed) data to import.
3030
#' @description Create a new prototype for the ready4 S3 class for tibble object lookup table of sources of raw (un-processed) data to import.
31-
#' @param file_type PARAM_DESCRIPTION, Default: character(0)
32-
#' @param file_name PARAM_DESCRIPTION, Default: character(0)
33-
#' @param data_repo PARAM_DESCRIPTION, Default: character(0)
34-
#' @param data_repo_ui PARAM_DESCRIPTION, Default: character(0)
35-
#' @param data_repo_db_ui PARAM_DESCRIPTION, Default: character(0)
36-
#' @param data_repo_file_ext PARAM_DESCRIPTION, Default: character(0)
37-
#' @param data_repo_save_type PARAM_DESCRIPTION, Default: character(0)
38-
#' @param local_file_src PARAM_DESCRIPTION, Default: character(0)
39-
#' @param make_script_src PARAM_DESCRIPTION, Default: character(0)
40-
#' @param download_url PARAM_DESCRIPTION, Default: character(0)
41-
#' @param inc_file_main PARAM_DESCRIPTION, Default: character(0)
42-
#' @param inc_files_to_rename PARAM_DESCRIPTION, Default: list()
43-
#' @param new_names_for_inc_files PARAM_DESCRIPTION, Default: list()
31+
#' @param file_type_chr File type (a character vector), Default: character(0)
32+
#' @param file_name_chr File name (a character vector), Default: character(0)
33+
#' @param data_repo_chr Data repo (a character vector), Default: character(0)
34+
#' @param data_repo_ui_chr Data repo ui (a character vector), Default: character(0)
35+
#' @param data_repo_db_ui_chr Data repo database ui (a character vector), Default: character(0)
36+
#' @param data_repo_file_ext_chr Data repo file ext (a character vector), Default: character(0)
37+
#' @param data_repo_save_type_chr Data repo save type (a character vector), Default: character(0)
38+
#' @param local_file_src_chr Local file source (a character vector), Default: character(0)
39+
#' @param path_to_make_script_chr Path to make script (a character vector), Default: character(0)
40+
#' @param download_url_chr Download url (a character vector), Default: character(0)
41+
#' @param inc_file_main_chr Include file main (a character vector), Default: character(0)
42+
#' @param inc_fls_to_rename_ls Include files to rename (a list), Default: list()
43+
#' @param new_nms_for_inc_fls_ls New names for include files (a list), Default: list()
4444
#' @return A prototype for ready4 S3 class for tibble object lookup table of sources of raw (un-processed) data to import.
4545
#' @details ready4 S3 class for tibble object lookup table of sources of raw (un-processed) data to import.
4646
#' @rdname make_pt_ready4_all_import_lup
4747
#' @export
4848
#' @importFrom ready4class update_pt_fn_args_ls
4949
#' @importFrom rlang exec
5050
#' @importFrom tibble tibble
51-
make_pt_ready4_all_import_lup <- function(file_type = character(0),
52-
file_name = character(0),
53-
data_repo = character(0),
54-
data_repo_ui = character(0),
55-
data_repo_db_ui = character(0),
56-
data_repo_file_ext = character(0),
57-
data_repo_save_type = character(0),
58-
local_file_src = character(0),
59-
make_script_src = character(0),
60-
download_url = character(0),
61-
inc_file_main = character(0),
62-
inc_files_to_rename = list(),
63-
new_names_for_inc_files = list()){
64-
args_ls <- list(file_type = file_type,
65-
file_name = file_name,
66-
data_repo = data_repo,
67-
data_repo_ui = data_repo_ui,
68-
data_repo_db_ui = data_repo_db_ui,
69-
data_repo_file_ext = data_repo_file_ext,
70-
data_repo_save_type = data_repo_save_type,
71-
local_file_src = local_file_src,
72-
make_script_src = make_script_src,
73-
download_url = download_url,
74-
inc_file_main = inc_file_main,
75-
inc_files_to_rename = inc_files_to_rename,
76-
new_names_for_inc_files = new_names_for_inc_files) %>% ready4class::update_pt_fn_args_ls()
51+
make_pt_ready4_all_import_lup <- function(file_type_chr = character(0),
52+
file_name_chr = character(0),
53+
data_repo_chr = character(0),
54+
data_repo_ui_chr = character(0),
55+
data_repo_db_ui_chr = character(0),
56+
data_repo_file_ext_chr = character(0),
57+
data_repo_save_type_chr = character(0),
58+
local_file_src_chr = character(0),
59+
path_to_make_script_chr = character(0),
60+
download_url_chr = character(0),
61+
inc_file_main_chr = character(0),
62+
inc_fls_to_rename_ls = list(),
63+
new_nms_for_inc_fls_ls = list()){
64+
args_ls <- list(file_type_chr = file_type_chr,
65+
file_name_chr = file_name_chr,
66+
data_repo_chr = data_repo_chr,
67+
data_repo_ui_chr = data_repo_ui_chr,
68+
data_repo_db_ui_chr = data_repo_db_ui_chr,
69+
data_repo_file_ext_chr = data_repo_file_ext_chr,
70+
data_repo_save_type_chr = data_repo_save_type_chr,
71+
local_file_src_chr = local_file_src_chr,
72+
path_to_make_script_chr = path_to_make_script_chr,
73+
download_url_chr = download_url_chr,
74+
inc_file_main_chr = inc_file_main_chr,
75+
inc_fls_to_rename_ls = inc_fls_to_rename_ls,
76+
new_nms_for_inc_fls_ls = new_nms_for_inc_fls_ls) %>% ready4class::update_pt_fn_args_ls()
7777
rlang::exec(tibble::tibble,!!!args_ls)
7878
}
7979
#' Validate ready4 S3 class for tibble object lookup table of sources of raw (un-processed) data to import.

‎R/C3_ready4_dist.R‎

Lines changed: 18 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -26,30 +26,30 @@ x
2626
}
2727
#' Make prototype ready4 S3 class for list object that summarises the parameters of each distribution
2828
#' @description Create a new prototype for the ready4 S3 class for list object that summarises the parameters of each distribution
29-
#' @param distribution PARAM_DESCRIPTION, Default: character(0)
30-
#' @param dist_param_1 PARAM_DESCRIPTION, Default: numeric(0)
31-
#' @param dist_param_2 PARAM_DESCRIPTION, Default: numeric(0)
32-
#' @param dist_param_3 PARAM_DESCRIPTION, Default: numeric(0)
33-
#' @param dist_param_4 PARAM_DESCRIPTION, Default: numeric(0)
34-
#' @param transformation PARAM_DESCRIPTION, Default: character(0)
29+
#' @param distribution_chr Distribution (a character vector), Default: character(0)
30+
#' @param dist_param_1_dbl Dist param 1 (a double vector), Default: numeric(0)
31+
#' @param dist_param_2_dbl Dist param 2 (a double vector), Default: numeric(0)
32+
#' @param dist_param_3_dbl Dist param 3 (a double vector), Default: numeric(0)
33+
#' @param dist_param_4_dbl Dist param 4 (a double vector), Default: numeric(0)
34+
#' @param transformation_chr Transformation (a character vector), Default: character(0)
3535
#' @return A prototype for ready4 S3 class for list object that summarises the parameters of each distribution
3636
#' @details ready4 S3 class for list object that summarises the parameters of each distribution
3737
#' @rdname make_pt_ready4_dist
3838
#' @export
3939
#' @importFrom ready4class update_pt_fn_args_ls
4040
#' @importFrom rlang exec
41-
make_pt_ready4_dist <- function(distribution = character(0),
42-
dist_param_1 = numeric(0),
43-
dist_param_2 = numeric(0),
44-
dist_param_3 = numeric(0),
45-
dist_param_4 = numeric(0),
46-
transformation = character(0)){
47-
args_ls <- list(distribution = distribution,
48-
dist_param_1 = dist_param_1,
49-
dist_param_2 = dist_param_2,
50-
dist_param_3 = dist_param_3,
51-
dist_param_4 = dist_param_4,
52-
transformation = transformation) %>% ready4class::update_pt_fn_args_ls()
41+
make_pt_ready4_dist <- function(distribution_chr = character(0),
42+
dist_param_1_dbl = numeric(0),
43+
dist_param_2_dbl = numeric(0),
44+
dist_param_3_dbl = numeric(0),
45+
dist_param_4_dbl = numeric(0),
46+
transformation_chr = character(0)){
47+
args_ls <- list(distribution_chr = distribution_chr,
48+
dist_param_1_dbl = dist_param_1_dbl,
49+
dist_param_2_dbl = dist_param_2_dbl,
50+
dist_param_3_dbl = dist_param_3_dbl,
51+
dist_param_4_dbl = dist_param_4_dbl,
52+
transformation_chr = transformation_chr) %>% ready4class::update_pt_fn_args_ls()
5353
rlang::exec(list,!!!args_ls)
5454
}
5555
#' Validate ready4 S3 class for list object that summarises the parameters of each distribution

‎R/C3_ready4_dv_import_lup.R‎

Lines changed: 21 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -27,34 +27,34 @@ x
2727
}
2828
#' Make prototype ready4 S3 class for tibble object lookup table of files to be imported from a dataverse.
2929
#' @description Create a new prototype for the ready4 S3 class for tibble object lookup table of files to be imported from a dataverse.
30-
#' @param file_type PARAM_DESCRIPTION, Default: character(0)
31-
#' @param file_name PARAM_DESCRIPTION, Default: character(0)
32-
#' @param data_repo PARAM_DESCRIPTION, Default: character(0)
33-
#' @param data_repo_ui PARAM_DESCRIPTION, Default: character(0)
34-
#' @param data_repo_db_ui PARAM_DESCRIPTION, Default: character(0)
35-
#' @param data_repo_file_ext PARAM_DESCRIPTION, Default: character(0)
36-
#' @param data_repo_save_type PARAM_DESCRIPTION, Default: character(0)
30+
#' @param file_type_chr File type (a character vector), Default: character(0)
31+
#' @param file_name_chr File name (a character vector), Default: character(0)
32+
#' @param data_repo_chr Data repo (a character vector), Default: character(0)
33+
#' @param data_repo_ui_chr Data repo ui (a character vector), Default: character(0)
34+
#' @param data_repo_db_ui_chr Data repo database ui (a character vector), Default: character(0)
35+
#' @param data_repo_file_ext_chr Data repo file ext (a character vector), Default: character(0)
36+
#' @param data_repo_save_type_chr Data repo save type (a character vector), Default: character(0)
3737
#' @return A prototype for ready4 S3 class for tibble object lookup table of files to be imported from a dataverse.
3838
#' @details ready4 S3 class for tibble object lookup table of files to be imported from a dataverse.
3939
#' @rdname make_pt_ready4_dv_import_lup
4040
#' @export
4141
#' @importFrom ready4class update_pt_fn_args_ls
4242
#' @importFrom rlang exec
4343
#' @importFrom tibble tibble
44-
make_pt_ready4_dv_import_lup <- function(file_type = character(0),
45-
file_name = character(0),
46-
data_repo = character(0),
47-
data_repo_ui = character(0),
48-
data_repo_db_ui = character(0),
49-
data_repo_file_ext = character(0),
50-
data_repo_save_type = character(0)){
51-
args_ls <- list(file_type = file_type,
52-
file_name = file_name,
53-
data_repo = data_repo,
54-
data_repo_ui = data_repo_ui,
55-
data_repo_db_ui = data_repo_db_ui,
56-
data_repo_file_ext = data_repo_file_ext,
57-
data_repo_save_type = data_repo_save_type) %>% ready4class::update_pt_fn_args_ls()
44+
make_pt_ready4_dv_import_lup <- function(file_type_chr = character(0),
45+
file_name_chr = character(0),
46+
data_repo_chr = character(0),
47+
data_repo_ui_chr = character(0),
48+
data_repo_db_ui_chr = character(0),
49+
data_repo_file_ext_chr = character(0),
50+
data_repo_save_type_chr = character(0)){
51+
args_ls <- list(file_type_chr = file_type_chr,
52+
file_name_chr = file_name_chr,
53+
data_repo_chr = data_repo_chr,
54+
data_repo_ui_chr = data_repo_ui_chr,
55+
data_repo_db_ui_chr = data_repo_db_ui_chr,
56+
data_repo_file_ext_chr = data_repo_file_ext_chr,
57+
data_repo_save_type_chr = data_repo_save_type_chr) %>% ready4class::update_pt_fn_args_ls()
5858
rlang::exec(tibble::tibble,!!!args_ls)
5959
}
6060
#' Validate ready4 S3 class for tibble object lookup table of files to be imported from a dataverse.

‎R/C3_ready4_par_struc_mape.R‎

Lines changed: 42 additions & 42 deletions
Original file line numberDiff line numberDiff line change
@@ -27,55 +27,55 @@ x
2727
}
2828
#' Make prototype ready4 S3 class for tibble object that stores simulation structural parameters relating to Mean Absolute Prediction Errors.
2929
#' @description Create a new prototype for the ready4 S3 class for tibble object that stores simulation structural parameters relating to Mean Absolute Prediction Errors.
30-
#' @param param_name PARAM_DESCRIPTION, Default: character(0)
31-
#' @param sex_age_band PARAM_DESCRIPTION, Default: character(0)
32-
#' @param mape_05_yr_mde PARAM_DESCRIPTION, Default: numeric(0)
33-
#' @param mape_10_yr_mde PARAM_DESCRIPTION, Default: numeric(0)
34-
#' @param mape_15_yr_mde PARAM_DESCRIPTION, Default: numeric(0)
35-
#' @param mape_05_yr_min PARAM_DESCRIPTION, Default: numeric(0)
36-
#' @param mape_10_yr_min PARAM_DESCRIPTION, Default: numeric(0)
37-
#' @param mape_15_yr_min PARAM_DESCRIPTION, Default: numeric(0)
38-
#' @param mape_05_yr_max PARAM_DESCRIPTION, Default: numeric(0)
39-
#' @param mape_10_yr_max PARAM_DESCRIPTION, Default: numeric(0)
40-
#' @param mape_15_yr_max PARAM_DESCRIPTION, Default: numeric(0)
41-
#' @param mape_05_yr_shp PARAM_DESCRIPTION, Default: numeric(0)
42-
#' @param mape_10_yr_shp PARAM_DESCRIPTION, Default: numeric(0)
43-
#' @param mape_15_yr_shp PARAM_DESCRIPTION, Default: numeric(0)
30+
#' @param param_name_chr Param name (a character vector), Default: character(0)
31+
#' @param sex_age_band_chr Sex age band (a character vector), Default: character(0)
32+
#' @param mape_05_yr_mde_dbl Mape 05 yr mde (a double vector), Default: numeric(0)
33+
#' @param mape_10_yr_mde_dbl Mape 10 yr mde (a double vector), Default: numeric(0)
34+
#' @param mape_15_yr_mde_dbl Mape 15 yr mde (a double vector), Default: numeric(0)
35+
#' @param mape_05_yr_min_dbl Mape 05 yr min (a double vector), Default: numeric(0)
36+
#' @param mape_10_yr_min_dbl Mape 10 yr min (a double vector), Default: numeric(0)
37+
#' @param mape_15_yr_min_dbl Mape 15 yr min (a double vector), Default: numeric(0)
38+
#' @param mape_05_yr_max_dbl Mape 05 yr max (a double vector), Default: numeric(0)
39+
#' @param mape_10_yr_max_dbl Mape 10 yr max (a double vector), Default: numeric(0)
40+
#' @param mape_15_yr_max_dbl Mape 15 yr max (a double vector), Default: numeric(0)
41+
#' @param mape_05_yr_shp_dbl Mape 05 yr shp (a double vector), Default: numeric(0)
42+
#' @param mape_10_yr_shp_dbl Mape 10 yr shp (a double vector), Default: numeric(0)
43+
#' @param mape_15_yr_shp_dbl Mape 15 yr shp (a double vector), Default: numeric(0)
4444
#' @return A prototype for ready4 S3 class for tibble object that stores simulation structural parameters relating to Mean Absolute Prediction Errors.
4545
#' @details ready4 S3 class for tibble object that stores simulation structural parameters relating to Mean Absolute Prediction Errors.
4646
#' @rdname make_pt_ready4_par_struc_mape
4747
#' @export
4848
#' @importFrom ready4class update_pt_fn_args_ls
4949
#' @importFrom rlang exec
5050
#' @importFrom tibble tibble
51-
make_pt_ready4_par_struc_mape <- function(param_name = character(0),
52-
sex_age_band = character(0),
53-
mape_05_yr_mde = numeric(0),
54-
mape_10_yr_mde = numeric(0),
55-
mape_15_yr_mde = numeric(0),
56-
mape_05_yr_min = numeric(0),
57-
mape_10_yr_min = numeric(0),
58-
mape_15_yr_min = numeric(0),
59-
mape_05_yr_max = numeric(0),
60-
mape_10_yr_max = numeric(0),
61-
mape_15_yr_max = numeric(0),
62-
mape_05_yr_shp = numeric(0),
63-
mape_10_yr_shp = numeric(0),
64-
mape_15_yr_shp = numeric(0)){
65-
args_ls <- list(param_name = param_name,
66-
sex_age_band = sex_age_band,
67-
mape_05_yr_mde = mape_05_yr_mde,
68-
mape_10_yr_mde = mape_10_yr_mde,
69-
mape_15_yr_mde = mape_15_yr_mde,
70-
mape_05_yr_min = mape_05_yr_min,
71-
mape_10_yr_min = mape_10_yr_min,
72-
mape_15_yr_min = mape_15_yr_min,
73-
mape_05_yr_max = mape_05_yr_max,
74-
mape_10_yr_max = mape_10_yr_max,
75-
mape_15_yr_max = mape_15_yr_max,
76-
mape_05_yr_shp = mape_05_yr_shp,
77-
mape_10_yr_shp = mape_10_yr_shp,
78-
mape_15_yr_shp = mape_15_yr_shp) %>% ready4class::update_pt_fn_args_ls()
51+
make_pt_ready4_par_struc_mape <- function(param_name_chr = character(0),
52+
sex_age_band_chr = character(0),
53+
mape_05_yr_mde_dbl = numeric(0),
54+
mape_10_yr_mde_dbl = numeric(0),
55+
mape_15_yr_mde_dbl = numeric(0),
56+
mape_05_yr_min_dbl = numeric(0),
57+
mape_10_yr_min_dbl = numeric(0),
58+
mape_15_yr_min_dbl = numeric(0),
59+
mape_05_yr_max_dbl = numeric(0),
60+
mape_10_yr_max_dbl = numeric(0),
61+
mape_15_yr_max_dbl = numeric(0),
62+
mape_05_yr_shp_dbl = numeric(0),
63+
mape_10_yr_shp_dbl = numeric(0),
64+
mape_15_yr_shp_dbl = numeric(0)){
65+
args_ls <- list(param_name_chr = param_name_chr,
66+
sex_age_band_chr = sex_age_band_chr,
67+
mape_05_yr_mde_dbl = mape_05_yr_mde_dbl,
68+
mape_10_yr_mde_dbl = mape_10_yr_mde_dbl,
69+
mape_15_yr_mde_dbl = mape_15_yr_mde_dbl,
70+
mape_05_yr_min_dbl = mape_05_yr_min_dbl,
71+
mape_10_yr_min_dbl = mape_10_yr_min_dbl,
72+
mape_15_yr_min_dbl = mape_15_yr_min_dbl,
73+
mape_05_yr_max_dbl = mape_05_yr_max_dbl,
74+
mape_10_yr_max_dbl = mape_10_yr_max_dbl,
75+
mape_15_yr_max_dbl = mape_15_yr_max_dbl,
76+
mape_05_yr_shp_dbl = mape_05_yr_shp_dbl,
77+
mape_10_yr_shp_dbl = mape_10_yr_shp_dbl,
78+
mape_15_yr_shp_dbl = mape_15_yr_shp_dbl) %>% ready4class::update_pt_fn_args_ls()
7979
rlang::exec(tibble::tibble,!!!args_ls)
8080
}
8181
#' Validate ready4 S3 class for tibble object that stores simulation structural parameters relating to Mean Absolute Prediction Errors.

‎R/fn_add.R‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -83,8 +83,8 @@ add_ds_to_dv_repo <- function (dv_1L_chr, ds_meta_ls, key_1L_chr = Sys.getenv("D
8383
add_dv_meta_to_imp_lup <- function (imp_lup, ds_ui_1L_chr, file_type_1L_chr, save_type_1L_chr)
8484
{
8585
assert_single_row_tb(imp_lup)
86-
imp_lup <- imp_lup %>% dplyr::mutate(data_repo_db_ui = ds_ui_1L_chr,
87-
data_repo_file_ext = file_type_1L_chr, data_repo_save_type = save_type_1L_chr)
86+
imp_lup <- imp_lup %>% dplyr::mutate(data_repo_db_ui_chr = ds_ui_1L_chr,
87+
data_repo_file_ext_chr = file_type_1L_chr, data_repo_save_type_chr = save_type_1L_chr)
8888
return(imp_lup)
8989
}
9090
#' Add files to dataverse
@@ -139,7 +139,7 @@ add_files_to_dv <- function (files_tb, data_dir_rt_1L_chr = ".", ds_url_1L_chr,
139139
#' @description add_labels_from_dictionary() is an Add function that updates an object by adding data to that object. Specifically, this function implements an algorithm to add labels from dictionary. Function argument ds_tb specifies the object to be updated. The function returns Labelled dataset (a tibble).
140140
#' @param ds_tb Dataset (a tibble)
141141
#' @param dictionary_tb Dictionary (a tibble)
142-
#' @param strip_old_lbls_1L_lgl PARAM_DESCRIPTION, Default: F
142+
#' @param remove_old_lbls_1L_lgl PARAM_DESCRIPTION, Default: F
143143
#' @return Labelled dataset (a tibble)
144144
#' @rdname add_labels_from_dictionary
145145
#' @export
@@ -148,9 +148,9 @@ add_files_to_dv <- function (files_tb, data_dir_rt_1L_chr = ".", ds_url_1L_chr,
148148
#' @importFrom purrr reduce
149149
#' @importFrom Hmisc label
150150
#' @keywords internal
151-
add_labels_from_dictionary <- function (ds_tb, dictionary_tb, strip_old_lbls_1L_lgl = F)
151+
add_labels_from_dictionary <- function (ds_tb, dictionary_tb, remove_old_lbls_1L_lgl = F)
152152
{
153-
if (strip_old_lbls_1L_lgl)
153+
if (remove_old_lbls_1L_lgl)
154154
ds_tb <- ds_tb %>% sjlabelled::unlabel()
155155
data_dictionary_tb <- dictionary_tb %>% dplyr::filter(var_nm_chr %in%
156156
names(ds_tb)) %>% dplyr::mutate(var_desc_chr = dplyr::case_when(is.na(var_desc_chr) ~

‎R/fn_get.R‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -91,10 +91,10 @@ get_local_path_to_dv_data <- function (save_dir_path_1L_chr, fl_nm_1L_chr, save_
9191
get_r3_from_dv_csv <- function (file_name_chr, data_repo_db_ui_chr, data_repo_ui_chr = NA_character_,
9292
r3_fn = ready4_all_import_lup)
9393
{
94-
tb_r3 <- tibble::tibble(file_type = ".csv", file_name = file_name_chr,
95-
data_repo = NA_character_, data_repo_ui = data_repo_ui_chr,
96-
data_repo_db_ui = data_repo_db_ui_chr, data_repo_file_ext = ".tab",
97-
data_repo_save_type = "original") %>% ready4_dv_import_lup() %>%
94+
tb_r3 <- tibble::tibble(file_type_chr = ".csv", file_name_chr = file_name_chr,
95+
data_repo_chr = NA_character_, data_repo_ui_chr = data_repo_ui_chr,
96+
data_repo_db_ui_chr = data_repo_db_ui_chr, data_repo_file_ext_chr = ".tab",
97+
data_repo_save_type_chr = "original") %>% ready4_dv_import_lup() %>%
9898
get_data() %>% make_r3_from_csv_tb(r3_fn)
9999
return(tb_r3)
100100
}

0 commit comments

Comments
 (0)