If I break it into parts, I find that the "GET" fails.
> Year <- format(Sys.Date(), "%Y")
>Month <- format(Sys.Date(), "%m")
> junk <- paste("https://mbsdisclosure.fanniemae.com/disclosure-docs/monthly/";,
+"mbs",
+as.character(Month),
+as.character(Year
All I have this code
#=== Function Downloads the Factor File
#' A function to download FNMA Pool Factors
#'
#' @importFrom httr GET
#' @importFrom httr write_disk
#' @importFrom httr http_status
#' @importFrom httr progress
#' @export
FNMAPoolFactor <- function(){
2 matches
Mail list logo
