export functions

This commit is contained in:
Patrick Schratz 2024-07-23 23:03:59 +02:00
commit d630fc1caa
Signed by: pat-s
GPG key ID: 3C6318841EF78925
6 changed files with 12 additions and 4 deletions

View file

@ -9,6 +9,7 @@ License: `use_mit_license()`, `use_gpl3_license()` or friends to pick a
license
Imports:
cli,
cranlike,
DBI,
dplyr,
future,

View file

@ -1,5 +1,10 @@
# Generated by roxygen2: do not edit by hand
export(build_binary_package)
export(build_single_tag)
export(dbcon)
export(install_package_system_dependencies)
export(upload_single_binary_to_s3)
import(progressr)
importFrom(DBI,dbConnect)
importFrom(DBI,dbDisconnect)
@ -9,6 +14,7 @@ importFrom(DBI,dbListTables)
importFrom(DBI,dbWriteTable)
importFrom(RPostgres,Postgres)
importFrom(cli,cli_alert_info)
importFrom(cranlike,add_PACKAGES)
importFrom(dplyr,all_vars)
importFrom(dplyr,filter)
importFrom(dplyr,filter_at)

View file

@ -1,5 +1,4 @@
#' @importFrom DBI dbConnect dbDisconnect dbWriteTable dbGetQuery dbExecute
#' @importFrom RSQLite SQLite
store_build_metadata <- function(
package_name, tag, platform,
error_occurred, error) {
@ -80,7 +79,6 @@ store_build_metadata <- function(
}
#' @importFrom DBI dbConnect dbGetQuery
#' @importFrom RSQLite SQLite
#' @importFrom dplyr filter_at vars all_vars
query_build_metadata <- function(table = "single_builds", ...) {
# s3 <- paws.storage::s3(config = list(
@ -117,7 +115,6 @@ query_build_metadata <- function(table = "single_builds", ...) {
#' @importFrom DBI dbConnect dbDisconnect dbWriteTable dbGetQuery dbExecute dbListTables
#' @importFrom RSQLite SQLite
#' @importFrom dplyr group_by summarise filter n
build_metadata_summary <- function(package_name, platform) {
con <- dbcon_mem()
@ -180,7 +177,6 @@ build_metadata_summary <- function(package_name, platform) {
# ))
}
#' @importFrom RSQLite SQLite
query_metadata_summary <- function(package_name = NULL, platform = NULL) {
# s3 <- paws.storage::s3(config = list(
# endpoint = "https://s3.eu-central-003.backblazeb2.com",

View file

@ -4,6 +4,7 @@
#' @importFrom gert git_config_set
#' @importFrom pak local_install_dev_deps
#' @importFrom pkgbuild build
#' @export
build_binary_package <- function(package_name, tag = NULL, codename = NULL,
r_version_minor = NULL, build_for_minor = TRUE,
local_build_root = "/root",
@ -108,6 +109,7 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
return(invisible(TRUE))
}
#' @export
install_package_system_dependencies <- function(package_name,
tag,
platform = "redhat-9",
@ -136,6 +138,7 @@ install_package_system_dependencies <- function(package_name,
#' @importFrom cli cli_alert_info
#' @importFrom pkgbuild build
#' @export
build_single_tag <- function(
package_name, tag = NULL,
platform,

1
R/db.R
View file

@ -1,5 +1,6 @@
#' @importFrom DBI dbConnect
#' @importFrom RPostgres Postgres
#' @export
dbcon <- function() {
DBI::dbConnect(RPostgres::Postgres(),
dbname = "build_metadata", host = "postgres-arm-binaries-r.devxy.io",

View file

@ -1,4 +1,5 @@
#' @importFrom paws.storage s3
#' @export
upload_single_binary_to_s3 <- function(
endpoint = "https://s3.eu-central-003.backblazeb2.com",
region = "eu-central-003",