search for: src_ref

...source. I've tried to make a bit of demo of what I want to do below, and I think I may uncovered a bug in parse. f <- function(x = T) { # This is a comment if (x) return(4) if (emergency_status()) return(T) } parsed_src <- parse(text = attr(f, "source")) src_ref <- attr(parsed_src, "srcref")[[1]] f_one <- parse(text = "{ # This is a comment if (x) return(4) if (emergency_status()) return(T) }") attr(f_one, "srcref")[[1]] f_inside <- parse(text = " # This is a comment if (x)...

...4 4 4 4 4 4 ... $ cob : int 1105 1105 1100 1101 1105 3 3 3 1105 1105 ... $ marital : int 1 1 1 1 1 1 1 1 1 1 ... $ emp_stat : int 1 1 8 1 1 1 1 1 1 1 ... $ interp : int 2 2 2 2 2 2 2 2 2 2 ... $ occup : int 96 96 NA NA 96 96 NA NA 96 NA ... $ src_ref : int 0 0 NA NA 0 0 NA NA 0 NA ... $ pat_epi : int 2 2 1 1 2 1 1 2 2 2 ... $ adm_from : int 900 900 900 900 900 900 900 900 900 900 ... $ spl_adm : int 25 39 50 50 39 84 25 25 39 25 ... $ spl_sep : int 25 39 50 50 39 84 25 25 21 25 ... $ adm_type...