add metadata query funs

R/metadata-query.R

@@ -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)
+}

man/list_metadata_tables.Rd

@@ -0,0 +1,11 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/metadata-query.R
+\name{list_metadata_tables}
+\alias{list_metadata_tables}
+\title{List existing database tables}
+\usage{
+list_metadata_tables()
+}
+\description{
+List existing database tables
+}

man/query_metadata_table.Rd

@@ -0,0 +1,14 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/metadata-query.R
+\name{query_metadata_table}
+\alias{query_metadata_table}
+\title{Query a specific table in the Postgres database containing the metadata}
+\usage{
+query_metadata_table(table = "single_builds")
+}
+\arguments{
+\item{table}{Table name. See \code{\link[=list_metadata_tables]{list_metadata_tables()}} for valid tables.}
+}
+\description{
+Query a specific table in the Postgres database containing the metadata
+}