MODIS data is available at multiple sources, I have downloaded from this site In Order to download the data, we’ll have to load some libraries

library(terra)
library(luna)

Now we will list all the products that are available

prods <- getProducts()
head(prods)

Let’s find the MODIS products

modis <- getProducts("^MOD|^MYD|^MCD")
head(modis)
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpNT0RJUyBkYXRhIGlzIGF2YWlsYWJsZSBhdCBtdWx0aXBsZSBzb3VyY2VzLCBJIGhhdmUgZG93bmxvYWRlZCBmcm9tIHRoaXMgW3NpdGVdKCJodHRwczovL21vZGlzLmdzZmMubmFzYS5nb3YvdG9vbHMvIikNCkluIE9yZGVyIHRvIGRvd25sb2FkIHRoZSBkYXRhLCB3ZSdsbCBoYXZlIHRvIGxvYWQgc29tZSBsaWJyYXJpZXMNCmBgYHtyfQ0KbGlicmFyeSh0ZXJyYSkNCmxpYnJhcnkobHVuYSkNCmBgYA0KTm93IHdlIHdpbGwgbGlzdCBhbGwgdGhlIHByb2R1Y3RzIHRoYXQgYXJlIGF2YWlsYWJsZQ0KDQpgYGB7cn0NCnByb2RzIDwtIGdldFByb2R1Y3RzKCkNCmhlYWQocHJvZHMpDQpgYGANCg0KDQpMZXQncyBmaW5kIHRoZSBNT0RJUyBwcm9kdWN0cw0KYGBge3J9DQptb2RpcyA8LSBnZXRQcm9kdWN0cygiXk1PRHxeTVlEfF5NQ0QiKQ0KaGVhZChtb2RpcykNCmBgYA0KDQoNCg==