kopia lustrzana https://github.com/RobertGawron/IonizationChamber
35 wiersze
808 B
R
Executable File
35 wiersze
808 B
R
Executable File
library(lintr)
|
|
|
|
args <- commandArgs(trailingOnly = TRUE)
|
|
|
|
if (length(args) < 2) {
|
|
cat("Usage: Rscript lint_check.R <input_folder> <output_folder>\n")
|
|
quit(status = 2) # Exit with code 2 for bad usage
|
|
}
|
|
|
|
input_folder <- args[[1]]
|
|
output_folder <- args[[2]]
|
|
output_file <- file.path(output_folder, "lints.txt")
|
|
|
|
# Create output folder if needed
|
|
if (!dir.exists(output_folder)) {
|
|
dir.create(output_folder, recursive = TRUE)
|
|
}
|
|
|
|
# Run the linter on the input directory
|
|
lints <- lint_dir(input_folder)
|
|
|
|
if (length(lints) > 0) {
|
|
print(lints) # Print to console
|
|
cat(
|
|
as.character(lints),
|
|
sep = "\n",
|
|
file = output_file
|
|
)
|
|
quit(status = 1) # Non-zero exit if lints found
|
|
} else {
|
|
cat("No lints found.\n")
|
|
cat("", file = output_file) # Create/empty the output file
|
|
quit(status = 0)
|
|
}
|