lintr fixes

JanMarvin · Dec 2, 2023 · 9a50bd3 · 9a50bd3
1 parent f621954
commit 9a50bd3
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/R/writesas.R b/R/writesas.R
@@ -21,10 +21,14 @@ write.sas <- function(dat, filepath, compress = 0, debug = FALSE, bit32 = FALSE,
  }
 
  if (missing(size)) {
- headersize = 65536;
- if (bit32 == 1) headersize = 1024;
- pagesize = 65536;
- if (bit32 == 1) pagesize = 8192;
+
+ hsize <- 65536
+ psize <- 65536
+
+ if (bit32) {
+ hsize <- 1024
+ psize <- 8192
+ }
 
  size = c(headersize, pagesize)
  } else if (length(size) != 2) {