getSymbols.FRED: incorrect number of dimensions

[Javdat]

When running getSymbols with src = "FRED" I get an error about incorrect dimensions:

setDefaults(getSymbols.FRED, api.key = xxx)
getSymbols("STLFSI4",
                 from  = "2001-01-01",
                 src = "FRED")

Error in `getSymbols.FRED()`:
! Unable to import “STLFSI4”.
incorrect number of dimensions

> sessionInfo()
R version 4.5.1 (2025-06-13)
Platform: aarch64-apple-darwin20
Running under: macOS Tahoe 26.5.1

Matrix products: default
BLAS:   /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib 
LAPACK: /Library/Frameworks/R.framework/Versions/4.5-arm64/Resources/lib/libRlapack.dylib;  LAPACK version 3.12.1

locale:
[1] C.UTF-8/C.UTF-8/C.UTF-8/C/C.UTF-8/C.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] quantmod_0.4.29 TTR_0.24.4      xts_0.14.1      zoo_1.8-14     

loaded via a namespace (and not attached):
 [1] compiler_4.5.1  cli_3.6.5       tools_4.5.1     pillar_1.10.2  
 [5] glue_1.8.0      curl_6.3.0      vctrs_0.6.5     grid_4.5.1     
 [9] lifecycle_1.0.4 rlang_1.1.6     lattice_0.22-7 

[Javdat]

quantmod/R/getSymbols.R

Lines 782 to 790 in 96eb06b

	if(have.key) {
	URL <- paste0(API.URL, "?series_id=", Symbols[[i]],
	"&api_key=", api.key, "&file_type=json")
	if (!is.na(obs.beg)) URL <- paste0(URL, "&observation_start=", obs.beg)
	if (!is.na(obs.end)) URL <- paste0(URL, "&observation_end=", obs.end)
	obs <- fetch(URL)
	value <- obs[, "value"]
	value[value %in% c(".", "")] <- NA

It is not parsing json after fetching.

Should be something like:

obs <- jsonlite::fromJSON(fetch(URL))$observations

[joshuaulrich]

🤦

Thanks for the report. I just pushed a branch that should fix this. Please test and let me know if you find any other issues.