wd <- tempdir()
suffix="2020-03-05_time_h17m44s55"
Field = "SHOOTING_DEPTH"
Values = c(10,800,0)
Data = RoME::TA
year <- unique(Data$YEAR)[1]
check_numeric_range(Data, Field, Values, year, wd, suffix)
Run the code above in your browser using DataLab