diff --git a/DESCRIPTION b/DESCRIPTION index d661290..a4a702f 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -9,6 +9,7 @@ License: `use_mit_license()`, `use_gpl3_license()` or friends to pick a license Imports: cli, + cranlike, DBI, dplyr, future, diff --git a/NAMESPACE b/NAMESPACE index 455979a..bfa1376 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -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) diff --git a/R/build-metadata.R b/R/build-metadata.R index 3f9cd5f..59e217c 100644 --- a/R/build-metadata.R +++ b/R/build-metadata.R @@ -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", diff --git a/R/build_binaries.R b/R/build_binaries.R index 223cdea..80a1ef9 100644 --- a/R/build_binaries.R +++ b/R/build_binaries.R @@ -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, diff --git a/R/db.R b/R/db.R index 906d4df..63bc34a 100644 --- a/R/db.R +++ b/R/db.R @@ -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", diff --git a/R/upload.R b/R/upload.R index 32821f7..9d883db 100644 --- a/R/upload.R +++ b/R/upload.R @@ -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",