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

add metadata query funs

Browse source
This commit is contained in:
Patrick Schratz 2024-07-25 00:28:09 +02:00
commit a4500684bb
Signed by: pat-s
GPG key ID: 3C6318841EF78925
1 changed files with 48 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
R/metadata-query.R Normal file
View file

@ -0,0 +1,23 @@
#' Query a specific table in the Postgres database containing the metadata
#' @param table Table name. See [list_metadata_tables()] for valid tables.
#' @importFrom DBI dbConnect dbGetQuery
#' @importFrom RPostgres Postgres
#' @importFrom dplyr tbl
query_metadata_table <- function(table = "single_builds") {
con <- DBI::dbConnect(RPostgres::Postgres(),
dbname = "build_metadata", host = "postgres-arm-binaries-r.devxy.io",
port = 15432, user = "arm_binaries", password = Sys.getenv("PGPASS")
)
metadata <- tbl(con, table)
return(metadata)
}
#' List existing database tables
#' @export
list_metadata_tables <- function() {
con <- DBI::dbConnect(RPostgres::Postgres(),
dbname = "build_metadata", host = "postgres-arm-binaries-r.devxy.io",
port = 15432, user = "arm_binaries", password = Sys.getenv("PGPASS")
)
dbListTables(con)
}