R/support_resistance.R

In threadingdata/finnhubr: Integration with Finnhub.io API

#' @title Support Resistance
#' @description Get support and resistance indicators.  Some resolutions don't work.
#'  
#' @param symbol Stock ticker
#' @param resolution 1-minute, 5-minute, 15-minute, 30-minute, 60-minute, 
#' daily, weekly and monthly
#' @importFrom tibble tibble
#' @importFrom dplyr mutate select
#' 
#' @return
#' @export
#' 
#' @examples
#' support_resistance('NVDA')
#' support_resistance('NVDA', resolution = '1') # Not working
#' support_resistance('NVDA', resolution = '5') # Not working
#' support_resistance('NVDA', resolution = '15') 
#' support_resistance('NVDA', resolution = '30') 
#' support_resistance('NVDA', resolution = '60') 
#' support_resistance('NVDA', resolution = 'D')
#' support_resistance('NVDA', resolution = 'W')
#' support_resistance('NVDA', resolution = 'M')
support_resistance <- function(symbol, 
                               resolution = 'D',
                               ...){
  
  url <- finnhub_endpoint('support_resistance')
  df <- retry_get(url, 
                  query = list(token = finnhub_key(),
                               symbol = symbol,
                               resolution = resolution)
  ) 
  
  df %>% 
    .[['levels']] %>% 
    tibble::tibble(support_resistance = .) %>% 
    dplyr::mutate(symbol = symbol) %>% 
    dplyr::select(symbol, support_resistance)
}