Using formals to assign new defaults to function

[ChristophLeonhardt]

To facilitate fuzzy matching, currently a list of functions is passed to fuzzyjoin::fuzzy_join(). To make these functions customizable, one way I found was to use formals to change the defaults of the arguments.

LinkTools/R/LTDataset.R

Lines 815 to 819 in 60543c9

	stringdist_join_match_fun_for_list <- self$stringdist_join_match_fun
	formals(stringdist_join_match_fun_for_list)[["ignore_case"]] <- ignore_case
	formals(stringdist_join_match_fun_for_list)[["method"]] <- dist_method
	formals(stringdist_join_match_fun_for_list)[["max_dist"]] <- max_dist

Is there a more direct way to access the arguments of the function?