install.packages("hwsdr")
library("hwsdr")
# 下载数据
t_sand <- ws_subset(
site = "HWSD",
location = c(25, 60, 50, 100),
param = "T_SAND",
path = tempdir(),
internal = TRUE
)
install.packages("hwsdr")
library("hwsdr")
# 下载数据
t_sand <- ws_subset(
site = "HWSD",
location = c(25, 60, 50, 100),
param = "T_SAND",
path = tempdir(),
internal = TRUE
)