fix #378

Author: m7pr

R/FilterState.R

@@ -113,14 +113,15 @@ FilterState <- R6::R6Class( # nolint
     #' Returns a formatted string representing this `FilterState` object.
     #'
     #' @param show_all `logical(1)` passed to `format.teal_slice`
+    #' @param trim_lines `logical(1)` passed to `format.teal_slice`
     #'
     #' @return `character(1)` the formatted string
     #'
-    format = function(show_all = FALSE) {
+    format = function(show_all = FALSE, trim_lines = TRUE) {
       sprintf(
         "%s:\n%s",
         class(self)[1],
-        format(self$get_state(), show_all = show_all)
+        format(self$get_state(), show_all = show_all, trim_lines = trim_lines)
       )
     },
 

R/FilterStateExpr.R

@@ -74,14 +74,15 @@ FilterStateExpr <- R6::R6Class( # nolint
     #' Returns a formatted string representing this `FilterStateExpr` object.
     #'
     #' @param show_all `logical(1)` passed to `format.teal_slice`
+    #' @param trim_lines `logical(1)` passed to `format.teal_slice`
     #'
     #' @return `character(1)` the formatted string
     #'
-    format = function(show_all = FALSE) {
+    format = function(show_all = FALSE, trim_lines = TRUE) {
       sprintf(
         "%s:\n%s",
         class(self)[1],
-        format(self$get_state(), show_all = show_all)
+        format(self$get_state(), show_all = show_all, trim_lines = trim_lines)
       )
     },
 

R/FilterStates.R

@@ -68,14 +68,15 @@ FilterStates <- R6::R6Class( # nolint
     #' Returns a formatted string representing this `FilterStates` object.
     #'
     #' @param show_all `logical(1)` passed to `format.teal_slices`
+    #' @param trim_lines `logical(1)` passed to `format.teal_slices`
     #'
     #' @return `character(1)` the formatted string
     #'
-    format = function(show_all = FALSE) {
+    format = function(show_all = FALSE, trim_lines = TRUE) {
       sprintf(
         "%s:\n%s",
         class(self)[1],
-        format(self$get_filter_state(), show_all = show_all)
+        format(self$get_filter_state(), show_all = show_all, trim_lines = trim_lines)
       )
     },
 

R/FilteredData.R

@@ -405,14 +405,15 @@ FilteredData <- R6::R6Class( # nolint
     #' Returns a formatted string representing this `FilteredData` object.
     #'
     #' @param show_all `logical(1)` passed to `format.teal_slice`
+    #' @param trim_lines `logical(1)` passed to `format.teal_slice`
     #'
     #' @return `character(1)` the formatted string
     #'
-    format = function(show_all = FALSE) {
+    format = function(show_all = FALSE, trim_lines = TRUE) {
       sprintf(
         "%s:\n%s",
         class(self)[1],
-        format(self$get_filter_state(), show_all = show_all)
+        format(self$get_filter_state(), show_all = show_all, trim_lines = trim_lines)
       )
     },
 

R/FilteredDataset.R

@@ -65,14 +65,15 @@ FilteredDataset <- R6::R6Class( # nolint
     #' Returns a formatted string representing this `FilteredDataset` object.
     #'
     #' @param show_all `logical(1)` passed to `format.teal_slice`
+    #' @param trim_lines `logical(1)` passed to `format.teal_slice`
     #'
     #' @return `character(1)` the formatted string
     #'
-    format = function(show_all = FALSE) {
+    format = function(show_all = FALSE, trim_lines = TRUE) {
       sprintf(
         "%s:\n%s",
         class(self)[1],
-        format(self$get_filter_state(), show_all = show_all)
+        format(self$get_filter_state(), show_all = show_all, trim_lines = trim_lines)
       )
     },
 

R/teal_slice.R

@@ -100,7 +100,9 @@
 #' is.teal_slice(x1)
 #' as.list(x1)
 #' as.teal_slice(list(dataname = "a", varname = "var"))
-#' format(x1, show_all = FALSE, trim_lines = TRUE)
+#' format(x1)
+#' format(x1, show_all = TRUE, trim_lines = FALSE)
+#' print(x1, show_all = FALSE, trim_lines = FALSE)
 #' print(x1, show_all = FALSE, trim_lines = TRUE)
 #'
 #' @export