Displaying 1 result from an estimated 1 matches for "f_insid".
Did you mean:
f_inside
2011 May 12
1
Recursively parsing srcrefs
...urn(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) return(4)
if (emergency_status()) return(T)
")
f_inside # Displays incorrectly?
attr(f_inside, "srcref")[[1]]
# Should be:
# # This is a comment
# if (x) return(4)
Regards,
Hadley
--...