diff --git a/tools/xcms/faahKO_4datasets.r b/tools/xcms/faahKO_4datasets.r
index aadfbe714..0110e8169 100644
--- a/tools/xcms/faahKO_4datasets.r
+++ b/tools/xcms/faahKO_4datasets.r
@@ -8,11 +8,14 @@ cdfs <- dir(system.file("cdf", package = "faahKO"), full.names = TRUE, recursive
 cdfs <- cdfs[c(1, 2, 7, 8)]
 
 pd <- data.frame(
-                 sample_name <- sub(basename(cdfs),
-                 pattern = ".CDF",
-                 replacement = "", fixed = TRUE),
-                 sample_group = c(rep("KO", 2), rep("WT", 2)),
-                 stringsAsFactors = FALSE)
+  sample_name <- sub(
+    basename(cdfs),
+    pattern = ".CDF",
+    replacement = "", fixed = TRUE
+  ),
+  sample_group = c(rep("KO", 2), rep("WT", 2)),
+  stringsAsFactors = FALSE
+)
 
 cwp <- CentWaveParam()
 
diff --git a/tools/xcms/xcms_fillpeaks.r b/tools/xcms/xcms_fillpeaks.r
index 56b678c9d..9618b06d5 100755
--- a/tools/xcms/xcms_fillpeaks.r
+++ b/tools/xcms/xcms_fillpeaks.r
@@ -83,7 +83,7 @@ register(SerialParam())
 xdata <- fillChromPeaks(xdata, param = fillChromPeaksParam)
 
 if (exists("intval")) {
-    getPeaklistW4M(xdata, intval, convertRTMinute, numDigitsMZ, numDigitsRT, naTOzero, "variableMetadata.tsv", "dataMatrix.tsv")
+  getPeaklistW4M(xdata, intval, convertRTMinute, numDigitsMZ, numDigitsRT, naTOzero, "variableMetadata.tsv", "dataMatrix.tsv")
 }
 
 cat("\n\n")