R/utils.R

In firebase: Integrates 'Google Firebase' Authentication Storage, and 'Analytics' with 'Shiny'

#' Get Path
#' 
#' Get path to internal file.
#' 
#' @return Pkg path.
#' 
#' @param path Path to file in \code{inst} directory.
#' 
#' @keywords internal
pkg_file <- function(path){
  system.file(path, package = "firebase")
}

# default config file name
config_file <- "firebase.rds"

#' Check Providers
#' 
#' Check if providers have been set.
#' 
#' @param opts Options to check.
#' 
#' @keywords internal
check_providers <- function(opts){
  opts <- unlist(opts)
  is_set <- sum(opts)

  if(!is_set)
    stop("Providers not set, see `set_providers` method.", call. = FALSE)
  
  invisible()
}

#' Check URLs
#' 
#' Check that tos and privacy policy urls are set.
#' 
#' @param fireblaze_ui An object of class \code{\link{FirebaseUI}}.
#' 
#' @keywords internal
check_urls <- function(fireblaze_ui){
  # check if still default
  if(grepl("^<.*>$", fireblaze_ui$tos_url) || grepl("^<.*>$", fireblaze_ui$privacy_policy_url))
    warning("Missing Terms of Service and/or Privacy policy URL, see `set_tos_url` and `set_privacy_policy_url` methods", call. = FALSE)

  invisible()
}

#' ID
#' 
#' Generates a unique id.
#' 
#' @keywords internal
create_unique_id <- function(){
  paste0(sample(c(letters, 1:26), 26), collapse = "") 
}

#' Check that a package installed
#' 
#' Checks that a package is installed, throws
#' an error if it is not.
#' 
#' @param pkg Package name.
#' 
#' @keywords internal
check_installed <- function(pkg) {
  if(missing(pkg))
    stop("Missing `pkg`", call. = FALSE)

  if(requireNamespace(pkg, quietly = TRUE))
    return()

  msg <- sprintf("This requires the pacakge: `%s`", pkg)
  stop(msg)
}

encode_file <- function(enc, ext){
  switch(
    ext,
    "png" = sprintf("data:image/png;base64,%s", enc),
    sprintf("data:text/plain;base64,%s", enc)
  )
}