resp <- response(headers = "Date: Wed, 01 Jan 2020 09:23:15 UTC")
resp |> resp_date()
# If server doesn't add header (unusual), you get the time the request
# was created:
resp <- response()
resp |> resp_date()
Run the code above in your browser using DataLab