R/get_data_indicators.R

In p0bs/shiny.moduler: Unpolished Test Case Of Main And Sub Modules In Shiny

#' @title Imports data relating to key US economic indicators over time
#' @description This function enables you to import data relating to key US economic indicators over time.
#' @keywords data
#' @examples
#' \dontrun{
#' get_data_indicators()
#' }
#'
#' @importFrom rlang .data
get_data_indicators <- function(){
  
  data_economy <- tidyquant::tq_get(
    x = c(
      "T10YIE",  # 10 Yr Breakeven
      "OB000334Q" # Real Y-O-Y GDP
    ),
    get = "economic.data",
    from = "2002-01-01"
  ) |> 
    dplyr::mutate(
      series = dplyr::if_else(
        .data$symbol == "T10YIE", 
        "10 Yr Breakeven", 
        "Real Y-O-Y GDP"
      ),
      level = .data$price / 100
    ) |> 
    dplyr::select(-.data$symbol, -.data$price) |> 
    tsibble::as_tsibble(key = .data$series, index = .data$date) 

  return(data_economy)
  
}