expand per="hr" to all options about rdwd HOT 1 CLOSED

data(fileIndex, package="rdwd")
id <- unique(fileIndex$id[fileIndex$var=="more_precip"])[1:100]
hist <- rdwd::selectDWD(id=id, res="daily", var="more_precip", per="h", outvec=TRUE)
rece <- rdwd::selectDWD(id=id, res="daily", var="more_precip", per="r", outvec=TRUE)
hist <- hist[hist!=rdwd::dwdbase] # 99 files
rece <- rece[rece!=rdwd::dwdbase] # 23 files

hire <- rdwd::selectDWD(id=id, res="daily", var="more_precip", per="hr") # length 100
# would be length 122 c(hist,rece)