使用R程序从NASAPOWER数据中获得错误

当我在R程序中使用以下代码时，得到以下错误

> library(nasapower)
> daily_single_ag <- get_power(
+     community = "AG",
+     lonlat = c(151.81, -27.48),
+     pars = c("RH2M", "T2M", "PRECTOT"),
+     dates = c("1985-01-01", "1985-01-31"),
+     temporal_average = "DAILY"
+ )
Error in curl::curl_fetch_memory(x$url$url, handle = x$url$handle) : 
  Timeout was reached: [power.larc.nasa.gov] Connection timed out after 10000 milliseconds

>库（nasapower）
>每日单发相关可能重复的帖子相关可能重复的帖子
library(nasapower)
daily_single_ag <- get_power(
  community = "AG",
  lonlat = c(151.81, -27.48),
  pars = c("RH2M", "T2M", "PRECTOT"),
  dates = c("1985-01-01", "1985-01-31"),
  temporal_average = "DAILY"
)


daily_single_ag