R/utils.R

In drdsdaniel/encftr: Funciones para trabajar con la ENCFT

#' Pipe operator
#'
#' See \code{magrittr::\link[magrittr:pipe]{\%>\%}} for details.
#'
#' @name %>%
#' @rdname pipe
#' @keywords internal
#' @export
#' @importFrom magrittr %>%
#' @usage lhs \%>\% rhs
NULL



#' Visualizar el diccionario de forma interactiva
#'
#' @return Un elemento html con la información del diccionario
#'
#' @export
#'
#' @examples
#' \dontrun{
#'   ftc_browse_dict()
#' }
ftc_browse_dict <- function(){
  labeler::browse_dict(encftr::dict)
}




#' Conexión a base de datos
#'
#'   `r lifecycle::badge("experimental")`
#'
#'   Vea \code{Dmisc::\link[Dmisc:db_connect]{db_connect}}
#'
#' @return Conexión a base de datos.
#' @export
#'
#' @examples
#' \dontrun{
#'   conn <- ftc_db_connect()
#' }
ftc_db_connect <- function(){
  Dmisc::db_connect(db_name = "encft")
}


#' @rdname ftc_db_connect
#' @export
ftc_dbConnect <- function() ftc_db_connect()




#' Tipo de cambio de las monedas extranjeras publicadas por el Banco Central
#'
#'
#' @format [data.frame]
"tipo_cambio_monedas"