# NOT RUN {
fn <- function(x) {
  x + 1 # A comment, kept as part of the source
}			
# Show the temporary file directory
# where the example was saved
getSrcDirectory(fn)
getSrcLocation(fn, "line")
# }
Run the code above in your browser using DataLab