get_site_MODIS doesn't seem to use credentials from setenv

[jeancaffou]

Tried to set credentials:

Sys.setenv(earthdata_user = 'jeancaffou',
           earthdata_pass = ',,,')

They seem to be set correctly

> Sys.getenv("earthdata_user")
[1] "jeancaffou"

But when fetching data, I get 401 unauthorized, wrong pass, even though the same credentials work for the login on the website of usgs

> site_modis_lst <- get_site_MODIS(
+   site_id, product = "LST",
+   from_date = "2022.10.01", to_date = "2023.01.30",
+   output_dir = output_dir,
+   output_proj = crs_fr,
+   plot_ts = TRUE)
Acquiring: LST_3band_emissivity_8day_1km (M*D21A2)
2023-02-09 12:00:10 - Download starting.
Request failed [401]. Retrying in 1 seconds...
Request failed [401]. Retrying in 1 seconds...
Request failed [401]. Retrying in 1 seconds...
Request failed [401]. Retrying in 1 seconds...
Error in MODIStsp_download(modislist, proc_opts$out_folder_mod, download_server,  : 
  Username and/or password are not valid. Please provide
             valid ones!