export functions
This commit is contained in:
parent
a30da76c88
commit
d630fc1caa
6 changed files with 12 additions and 4 deletions
|
|
@ -9,6 +9,7 @@ License: `use_mit_license()`, `use_gpl3_license()` or friends to pick a
|
|||
license
|
||||
Imports:
|
||||
cli,
|
||||
cranlike,
|
||||
DBI,
|
||||
dplyr,
|
||||
future,
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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",
|
||||
|
|
|
|||
|
|
@ -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
1
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",
|
||||
|
|
|
|||
|
|
@ -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",
|
||||
|
|
|
|||
Loading…
Reference in a new issue