From 62f4dfdf8c4717da17ff7065b4192a04823794a0 Mon Sep 17 00:00:00 2001 From: pat-s Date: Fri, 20 Sep 2024 15:05:45 +0200 Subject: [PATCH] update DB address --- R/db.R | 2 +- R/metadata-build.R | 4 ++-- R/metadata-query.R | 4 ++-- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/R/db.R b/R/db.R index 63bc34a..0d1dd17 100644 --- a/R/db.R +++ b/R/db.R @@ -3,7 +3,7 @@ #' @export dbcon <- function() { DBI::dbConnect(RPostgres::Postgres(), - dbname = "build_metadata", host = "postgres-arm-binaries-r.devxy.io", + dbname = "build_metadata", host = "r-binaries.devxy.io", port = 15432, user = "arm_binaries", password = Sys.getenv("PGPASS") ) } diff --git a/R/metadata-build.R b/R/metadata-build.R index 8ee9155..3940926 100644 --- a/R/metadata-build.R +++ b/R/metadata-build.R @@ -4,7 +4,7 @@ store_build_metadata <- function( package_name, tag, platform, error_occurred, force = FALSE, error = NA, build_duration = NA, size = NA) { con <- DBI::dbConnect(RPostgres::Postgres(), - dbname = "build_metadata", host = "postgres-arm-binaries-r.devxy.io", + dbname = "build_metadata", host = "r-binaries.devxy.io", port = 15432, user = "arm_binaries", password = Sys.getenv("PGPASS") ) @@ -47,7 +47,7 @@ store_build_metadata <- function( #' @importFrom dplyr group_by summarise filter n build_metadata_summary <- function(package_name, platform) { con <- DBI::dbConnect(RPostgres::Postgres(), - dbname = "build_metadata", host = "postgres-arm-binaries-r.devxy.io", + dbname = "build_metadata", host = "r-binaries.devxy.io", port = 15432, user = "arm_binaries", password = Sys.getenv("PGPASS") ) diff --git a/R/metadata-query.R b/R/metadata-query.R index 07dbe76..6e5a825 100644 --- a/R/metadata-query.R +++ b/R/metadata-query.R @@ -6,7 +6,7 @@ #' @export query_metadata_table <- function(table = "single_builds") { con <- DBI::dbConnect(RPostgres::Postgres(), - dbname = "build_metadata", host = "postgres-arm-binaries-r.devxy.io", + dbname = "build_metadata", host = "r-binaries.devxy.io", port = 15432, user = "arm_binaries", password = Sys.getenv("PGPASS") ) metadata <- tbl(con, table) @@ -17,7 +17,7 @@ query_metadata_table <- function(table = "single_builds") { #' @export list_metadata_tables <- function() { con <- DBI::dbConnect(RPostgres::Postgres(), - dbname = "build_metadata", host = "postgres-arm-binaries-r.devxy.io", + dbname = "build_metadata", host = "r-binaries.devxy.io", port = 15432, user = "arm_binaries", password = Sys.getenv("PGPASS") ) dbListTables(con)