## ----eval = FALSE-------------------------------------------------------------
#  library(comtradr)
#  #### Now
#  q <- ct_get_data(reporter = "USA",
#                 partner = c("DEU", "FRA", "JPN", "MEX"),
#                 flow_direction = "import",
#                 start_date = 2020,
#                 end_date = 2023,
#                 cache = TRUE) # <----- set this argument to TRUE

## ----eval = FALSE-------------------------------------------------------------
#  ## to delete all files in your cache
#  tools::R_user_dir('comtradr', which = 'cache') |>
#    fs::dir_delete()

## ----eval = FALSE-------------------------------------------------------------
#  ## to delete all files in your cache
#  tools::R_user_dir('comtradr_bulk', which = 'cache') |>
#    fs::dir_delete()