88# # namespace/module feature so that implementation details can be
99# # hidden away a bit further.
1010
11- orderly_schema_version <- " 1.2.39 "
11+ orderly_schema_version <- " 1.3.0 "
1212orderly_schema_table <- " orderly_schema"
1313orderly_table_list <- " orderly_schema_tables"
1414
@@ -24,14 +24,6 @@ report_db_schema_read <- function(fields = NULL, dialect = "sqlite") {
2424
2525 d <- set_names(lapply(names(d ), preprepare ), names(d ))
2626
27- # # Delete with VIMC-2929
28- if (! is.null(fields )) {
29- f <- set_names(Map(function (t , n ) list (type = t , nullable = n ),
30- rep(" character" , nrow(fields )), ! fields $ required ),
31- fields $ name )
32- d [[" report_version" ]]$ columns <- c(d [[" report_version" ]]$ columns , f )
33- }
34-
3527 prepare_table <- function (x ) {
3628 prepare_col <- function (nm ) {
3729 el <- x $ columns [[nm ]]
@@ -303,10 +295,7 @@ report_data_import <- function(con, dat_rds, config) {
303295 git_sha = dat_rds $ git $ sha %|| % NA_character_ ,
304296 git_branch = dat_rds $ git $ branch %|| % NA_character_ ,
305297 git_clean = git_clean )
306- # # TODO: Delete with VIMC-2929
307- if (! is.null(dat_rds $ meta $ extra_fields )) {
308- report_version <- cbind(report_version , dat_rds $ meta $ extra_fields )
309- }
298+
310299 DBI :: dbWriteTable(con , " report_version" , report_version , append = TRUE )
311300
312301 if (! is.null(dat_rds $ meta $ extra_fields )) {
0 commit comments