Decompile Progress .r File Direct
dput(getAnywhere("function_name")) or for entire loaded object:
load("yourfile.r") # loads object(s) into environment # or data <- readRDS("yourfile.r") Then inspect structure: decompile progress .r file
file yourfile.r or inside R: