devxy/build-cran-binaries
Watch
1
0
Fork
You've already forked build-cran-binaries
 0
Code Issues 11 Pull requests Releases Activity

capture arch in metadata table

Browse source
This commit is contained in:
Patrick Schratz 2024-09-24 08:13:08 +02:00
commit 66b0a1046a
Signed by: pat-s
GPG key ID: 3C6318841EF78925
1 changed files with 40 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

9
R/metadata-build.R
View file

@ -1,7 +1,7 @@
#' Stores build metadata of single binary builds in a Postgres DB
#' @importFrom DBI dbConnect dbDisconnect dbWriteTable dbGetQuery dbExecute
store_build_metadata <- function(
package_name, tag, platform, error_occurred,
package_name, tag, platform, error_occurred, arch,
force = FALSE, error = NA, build_duration = NA, size = NA) {
con <- DBI::dbConnect(RPostgres::Postgres(),
dbname = "build_metadata", host = "r-binaries.devxy.io",
@ -11,7 +11,7 @@ store_build_metadata <- function(
# Check if an entry with the same package_name and tag already exists
existing_entries <- dbGetQuery(con, paste0(
"SELECT * FROM single_builds WHERE name = '",
package_name, "' AND tag = '", tag, "' AND platform = '", platform, "'"
package_name, "' AND tag = '", tag, "' AND platform = '", arch, "' AND arch = '", platform, "'"
))
if (nrow(existing_entries) >= 1 && !force) {
@ -29,6 +29,7 @@ store_build_metadata <- function(
name = package_name,
tag = tag,
platform = platform,
arch = arch,
error_occurred = error_occurred,
error_text = error,
size = size,
@ -90,7 +91,9 @@ build_metadata_summary <- function(package_name, platform) {
", percentage_successful_builds = ", summary$percentage_successful_builds,
", average_build_time_per_tag = '", summary$average_build_time_per_tag,
"', package_name = '", package_name,
"', platform = '", platform, "'"
"', platform = '", platform, "'",
"', arch = '", platform, "'",
))
} else {
dbWriteTable(con, "metadata_summary", summary)