Save & Load

library(tidyverse)
library(tidyquant)
library(alphavantager)
library(tradingview)
library(prettyunits)
av_api_key(Sys.getenv("ALPHAVANTAGE_API_KEY"))

data <- av_get(symbol = "VGK", av_fun = "TIME_SERIES_DAILY", outputsize = "full")
data

saveRDS(data, "thing.rds")

loaded <- readRDS("thing.rds")
loaded

identical(data, loaded)

[1] TRUE

pretty_bytes(file.size("thing.rds"))

[1] "63.76 kB"