fix: column name

rsquaredacademy · Mar 2, 2024 · d478871 · d478871
1 parent 295f7df
commit d478871
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/ds-output.R b/R/ds-output.R
@@ -378,7 +378,7 @@ print_ftable2 <- function(x) {
   nc <- ncol(x$ftable)
   w1 <- max(nchar("Levels"), nchar(x$ftable$Levels), nchar("Missing"))
   w2 <- max(nchar("Frequency"), nchar(x$ftable$Frequency), nchar(x$na_count))
-  w3 <- max(nchar("Cum Frequency"), nchar(x$ftable$`Cum Frequency`))
+  w3 <- max(nchar("Cum Frequency"), nchar(x$ftable$Cum.Frequency))
   w <- sum(w1, w2, w3, 26, 16)
   cat(format(paste("Variable:", x$varname), width = w, justify = "centre"), "\n")
   cat(rep("-", w), sep = "")
@@ -393,9 +393,9 @@ print_ftable2 <- function(x) {
     cat("\n")
     cat(format(as.character(x$ftable$Levels[i]), width = w1, justify = "centre"), fs(),
         format(as.character(x$ftable$Frequency[i]), width = w2, justify = "centre"), fs(),
-        format(as.character(x$ftable$`Cum Frequency`[i]), width = w3, justify = "centre"), fs(),
+        format(as.character(x$ftable$Cum.Frequency[i]), width = w3, justify = "centre"), fs(),
         format(as.character(x$ftable$Percent[i]), width = 13, justify = "centre"), fs(),
-        format(as.character(x$ftable$`Cum Percent`[i]), width = 13, justify = "centre")
+        format(as.character(x$ftable$Cum.Percent[i]), width = 13, justify = "centre")
     )
     cat("\n")
     cat(rep("-", w), sep = "")