if (FALSE) {
ex_file1 <- "path/file1.R"
# get all comments
cmmts <- extract_comment(ex_file1)
cmmts
}
if (FALSE) {
# Ex to clean out comments from file
file_path <- ".testR"
output_file_path <- ".cleaned_script.R"
clean_file(file_path, output_file_path)
}
# example code
if (FALSE) {
# Ex to get all defined functions
# within a file
file_path <- ".testR"
get_func_def(file_path)
}
Run the code above in your browser using DataLab