Reads every .json file in dir, compiles each as a tallieR registry
entry, and returns a combined named list suitable for passing to
score_questionnaire().
Examples
if (FALSE) { # \dontrun{
custom <- load_instrument_dir("instruments/")
score_questionnaire("fss", answers, instruments = custom)
} # }