R/add_app.R

In Tychobra/polishedapi: Authentication and Administration API for Shiny apps

#' add_app
#'
#' @param conn the database connection
#' @param app_name the name of the app
#' @param account_uid the account uid
#' @param schema the name of the database schema
#'
#' @export
#'
#' @importFrom pool dbExecute
#'
add_app <- function(conn, app_name, account_uid, schema = "polished") {

  pool::dbExecute(
    conn,
    paste0("INSERT INTO ", schema, ".apps ( app_name, account_uid ) VALUES ( $1, $2 )"),
    params = list(
      app_name,
      account_uid
    )
  )
}