Give better context when invalid object ID or name found

[hongyuanjia]

library(eplusr)

idf <- read_idf(system.file("extdata/1ZoneUncontrolled.idf", package = "eplusr"))
#> IDD v8.8.0 has not been parsed before.
#> Try to locate 'Energy+.idd' in EnergyPlus v8.8.0 installation folder 'C:/EnergyPlusV8-8-0'.
#> IDD file found: 'C:\EnergyPlusV8-8-0\Energy+.idd'.
#> Start parsing...
#> Parsing completed.

get_idf_object(
    get_priv_env(idf)$idd_env(),
    get_priv_env(idf)$idf_env(),
    "AirLoopHVAC", 1
)
#> Error: Invalid object ID found: '1'

^{Created on 2021-03-05 by the reprex package (v1.0.0)}