Error in open.connection(con, "rb") : HTTP error 400

[RAJohansen]

When running the example:

img <- earth_image(key, -100.31008, 25.66779, "2016-01-01")

Error in open.connection(con, "rb") : HTTP error 400.