testlist <- list(dn = -1294723540L)
result <- do.call(ggiraph:::set_tracer_on,testlist)
str(result)