How to calculate mean of one band of an image in rgee (R package for interacting with GEE) without exceeding memory limits?

I am calculating the means of an image that I’ve previously done calculations on but I am exceeding EE memory limits: "Error in py_call_impl(callable, dots$args, dots$keywords) :
EEException: User memory limit exceeded."

Is there a more efficient way to calculate the mean?

means1 = image$reduceRegion(
  reducer=ee$Reducer$mean(),
  geometry=shp$geometry(),
  scale= 10,
  maxPixels= 1e9)
print(means1$getInfo())