R/get_google_maps_key.R

In bi-sdal/sdalr: Convenience functions for the Social and Decision Analytics Lab

#' Retrieves the Google Maps API key on the server
#'
#' So it's not accidentently pushed in the code
#'
#' @param file location of the google maps key file by default it points to the location in the sdal server
#' @return string
#' @export
#' @examples
#' \dontrun{
#' get_google_maps_key()
#'
#' get_google_maps_key('~/google_maps_api_key.txt')
#' }
get_google_maps_key <- function(file = '/home/sdal/projects/sdal/api_keys/google_maps_api_key.txt') {
    paste(readLines(file), collapse = " ")
}