Friendly column finder for "not found" errors

[MichaelChirico]

Consider:

DT = data.table(myname = 1, some_var = 2)
DT[somevar == 2]
#  Error in eval(.massagei(isub), x, parent.frame()) : 
#   object 'somevar' not found 

Should be easy enough to run adist on names(DT) (or also ls()) to suggest some potential misspellings. Nothing too sophisticated of course, maybe just look within levensthein distance of 2 or 3. Truncated to 10 options or so in case there are numbered columns.

[HughParsonage]

Or agrep:

 agrep("somevar", names(DT), value = TRUE)[1]
#> "some_var"