Landsat 8 - Not Found (HTTP 404). Failed to process request. about getspatialdata HOT 6 CLOSED

Locations = data.frame(39.9,-105.65)
colnames(Locations)=c("Lat","Lon")

cell_dim = .1
Rects=Locations
Rects$BR_Lat = Locations$Lat
Rects$BR_Lon = Locations$Lon
Rects$TR_Lat = Rects$BR_Lat+cell_dim
Rects$TR_Lon= Rects$BR_Lon
Rects$TL_Lat= Rects$TR_Lat
Rects$TL_Lon= Rects$TR_Lon - cell_dim
Rects$BL_Lat= Rects$BR_Lat
Rects$BL_Lon=Rects$TL_Lon
Rects=Rects[,3:10]

a<-matrix(as.numeric(as.character(Rects[1, ])), ncol=2, byrow=TRUE)

set_aoi(a)
view_aoi() #view AOI in viewer, which will look like this:

start_records = "2020-06-01"
end_records = "2020-07-05"

#records = get_records(time_range = c(start_records, end_records), products = c("LANDSAT_8_C1", "Sentinel-2", "LANDSAT_ETM_C1"))
records = get_records(time_range = c(start_records, end_records), products = c("LANDSAT_8_C1"))

records_filtered <- records[which(records$level %in% c("l1")),] #filter by Level
records_filtered <- records_filtered[as.numeric(records_filtered$cloudcov) <= 70, ] #filter by clouds

#order any data that is not already available 
test_for_availability = check_availability(records_filtered)

tryCatch(records_filtered <- order_data(test_for_availability), error = function(e) message("No New Records Ordered: ", e))

#test for all data availability for 60 minutes else proceed with current data
time_waited=0
cycle=60

#try for an hour before just going with all avaialble now
while(!all(test_for_availability$download_available==TRUE && time_waited<3600)){
  Sys.sleep(cycle)
  test_for_availability = check_availability(records_filtered)
  time_waited=time_waited+cycle
}

records_filtered = test_for_availability[test_for_availability$download_available==TRUE,]
records_filtered <-records_filtered[order(records_filtered$cloudcov),]

get_data(records = records_filtered[1,])
get_data(records = records_filtered[2,])

library(getSpatialData)
library(sf)

# using your corner coordinates to define AOI with column order (lon, lat)
aoi <- cbind(c(-115.65, -115.65, -105.75, -105.75), #longitude
             c(39.9, 45.0, 45.0, 39.9)) # latitude
aoi <- rbind(aoi, aoi[1,]) # close the polygon
aoi <- st_sfc(st_polygon(list(aoi)), crs = 4326)

set_aoi(aoi)
view_aoi()
set_archive("archive/")

start_records = "2020-07-13"
end_records = "2020-07-14"

login_USGS("user")
records = get_records(time_range = c(start_records, end_records), products = c("LANDSAT_8_C1"))

records <- records[which(records$level %in% c("l1")),] #filter by Level
records <- records[as.numeric(records$cloudcov) <= 70, ] #filter by clouds

#order any data that is not already available 
records <- check_availability(records)
get_data(records)

##>Error in .get(index_url) : 
 ##>Not Found (HTTP 404). Failed to process request.