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

export functions

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

1
DESCRIPTION
View file

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

6
NAMESPACE
View file

@ -1,5 +1,10 @@
# Generated by roxygen2: do not edit by hand # 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) import(progressr)
importFrom(DBI,dbConnect) importFrom(DBI,dbConnect)
importFrom(DBI,dbDisconnect) importFrom(DBI,dbDisconnect)
@ -9,6 +14,7 @@ importFrom(DBI,dbListTables)
importFrom(DBI,dbWriteTable) importFrom(DBI,dbWriteTable)
importFrom(RPostgres,Postgres) importFrom(RPostgres,Postgres)
importFrom(cli,cli_alert_info) importFrom(cli,cli_alert_info)
importFrom(cranlike,add_PACKAGES)
importFrom(dplyr,all_vars) importFrom(dplyr,all_vars)
importFrom(dplyr,filter) importFrom(dplyr,filter)
importFrom(dplyr,filter_at) importFrom(dplyr,filter_at)

4
R/build-metadata.R
View file

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

3
R/build_binaries.R
View file

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

1
R/db.R
View file

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

1
R/upload.R
View file

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