From 17b8d44c7b8fdcbf3bb11c28d1ba3465f4c23cf7 Mon Sep 17 00:00:00 2001 From: pat-s Date: Thu, 25 Jul 2024 14:47:36 +0200 Subject: [PATCH] add file size to metadata --- R/build_binaries.R | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/R/build_binaries.R b/R/build_binaries.R index e003e37..5f26040 100644 --- a/R/build_binaries.R +++ b/R/build_binaries.R @@ -188,6 +188,9 @@ build_single_tag <- function( total_build_time <- round(difftime(Sys.time(), t1, units = "secs"), 2) + # bytes to MB in binary format + file_size <- as.numeric(fs::file_size(sprintf("%s/%s_%s.tar.gz", dir_out_bin, package_name, tag))) / (1024^2) + # skip DB connection if package already exists if (file.exists(sprintf("%s/%s_%s.tar.gz", dir_out_bin, package_name, tag))) { con <- DBI::dbConnect(RPostgres::Postgres(), @@ -195,8 +198,10 @@ build_single_tag <- function( port = 15432, user = "arm_binaries", password = Sys.getenv("PGPASS") ) dbExecute(con, sprintf( - "UPDATE single_builds set build_duration = %s WHERE package_name = '%s' and platform = '%s' and tag = '%s'", - total_build_time, package_name, platform, tag + "UPDATE single_builds SET build_duration = $1, size = $2 WHERE package_name = $3 and platform = $4 and tag = $5", + params = list( + total_build_time, file_size, package_name, platform, tag + ) )) dbDisconnect(con) }