8
8
# # namespace/module feature so that implementation details can be
9
9
# # hidden away a bit further.
10
10
11
- orderly_schema_version <- " 1.2.39 "
11
+ orderly_schema_version <- " 1.3.0 "
12
12
orderly_schema_table <- " orderly_schema"
13
13
orderly_table_list <- " orderly_schema_tables"
14
14
@@ -24,14 +24,6 @@ report_db_schema_read <- function(fields = NULL, dialect = "sqlite") {
24
24
25
25
d <- set_names(lapply(names(d ), preprepare ), names(d ))
26
26
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
-
35
27
prepare_table <- function (x ) {
36
28
prepare_col <- function (nm ) {
37
29
el <- x $ columns [[nm ]]
@@ -303,10 +295,7 @@ report_data_import <- function(con, dat_rds, config) {
303
295
git_sha = dat_rds $ git $ sha %|| % NA_character_ ,
304
296
git_branch = dat_rds $ git $ branch %|| % NA_character_ ,
305
297
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
+
310
299
DBI :: dbWriteTable(con , " report_version" , report_version , append = TRUE )
311
300
312
301
if (! is.null(dat_rds $ meta $ extra_fields )) {
0 commit comments