Last fixes

.Rprofile

@@ -0,0 +1,2 @@
+options(show.error.messages = TRUE)
+options(scipen = 999999999)

R/edgar_rf.R

@@ -4415,7 +4415,7 @@ parse_cik_data <-
 #' @param nest_data return a nested data frame \code{TRUE, FALSE}
 #' @param assign_to_environment \code{true} assigns individual data frames to your environment
 #' @param return_message \code{TRUE} return a message after data import
-#' @import dplyr tidyr purrr stringr formattable readr lubridate XBRL curl
+#' @import dplyr tidyr purrr stringr formattable readr lubridate XBRL curl jsonlite lazyeval
 #' @importFrom jsonlite fromJSON
 #' @export
 #' @return where \code{nest_data} is \code{TRUE} a nested data_frame by asset,

R/fred_api.R

@@ -558,7 +558,7 @@ generate_fred_symbol_url <-
   }
 
 parse_json_fred <-
-  function(url,
+  function(url = "https://fred.stlouisfed.org/graph/graph-data.php?id=DGS10&transformation=",
            convert_date_time = TRUE,
            return_message = TRUE) {
     json_data <-
@@ -741,6 +741,7 @@ get_data_fred_symbols <-
       as_data_frame()
     get_data_fred_symbol_safe <-
       purrr::possibly(get_data_fred_symbol, data_frame)
+
     all_data <-
       1:nrow(df_options) %>%
       map_df(function(x) {
@@ -872,11 +873,11 @@ plot_time_series <-
 
     if ('nameSource' %in% names(data)) {
       caption_text <-
-        list("Date from ",data$nameSource %>% unique, '\n', 'via FRED from fundManageR') %>%
+        list("Source data from ",data$nameSource %>% unique, '\n', 'via FRED from fundManageR') %>%
         purrr::reduce(paste0)
     } else {
       caption_text <-
-        "Data from FRED via fundManageR"
+        "Sourced from FRED via fundManageR"
     }
 
     plot <-