Merge pull request #23 from stemangiola/fix-20

Fix 20

Author: stemangiola

dev/metadata_database.R

@@ -1,10 +1,15 @@
+library(RSQLite)
+library(DBI)
+library(dplyr)
+
 args <- commandArgs(trailingOnly = TRUE)
 # Path to the metadata file used as input
 metadata_input <- args[[1]]
 # Path to the sqlite file which this script will output
-output_file <- args[[1]]
+output_file <- args[[2]]
 
 metadata <- readRDS(metadata_input)
 
-con <- DBI::dbConnect(RSQLite::SQLite(), dbname=output_file) |> 
-  dplyr::copy_to(metadata, "metadata")
+con <- dbConnect(SQLite(), dbname=output_file)
+dbWriteTable(con, "metadata", metadata)
+dbDisconnect(con)