docorator <- as_docorator(list(), display_name = "empty_list") class(docorator$display)
docorator <- as_docorator(list(), display_name = "empty_list")
class(docorator$display)