R/register_file.R

In Epsian/metacomb:

# function to register the current file into the metacomb database

register_file = function(file_id, type = "script", level = NA, location = NA){

  # connect to metacomb db
  .comb_db = metacomb::comb_connect()

  # disconnect on exit
  on.exit(DBI::dbClearResult(.comb_db))
  on.exit(DBI::dbDisconnect(.comb_db))

  # find file location if NA
  if(is.na(location)){location = ifelse(type == "script", metacomb::current_script(), NA)}

  # make info to input
  file_meta = paste("file_id" = paste0("'", file_id, "'"),
                    "file_location" = paste0("'", location, "'"),
                    "file_type" = paste0("'", type, "'"),
                    "file_level" = paste0("'", level, "'"),
                    "last_updater" = paste0("'", Sys.info()["user"], "'"), sep = ", ")

  # now try to enter the info
  out = DBI::dbExecute(.comb_db, paste0("
                       INSERT OR REPLACE INTO file_meta (file_id, file_location, file_type, file_level, last_updater)
                       VALUES (", file_meta,")
                       "))

  # return file_id
  return(file_id)

}