adjust warning messages

Author: m7pr

R/qenv-get_warnings.R

@@ -52,7 +52,7 @@ setMethod("get_warnings", signature = c("qenv"), function(object) {
   sprintf(
     "~~~ Warnings ~~~\n\n%s\n\n~~~ Trace ~~~\n\n%s",
     paste(lines, collapse = "\n\n"),
-    get_code(object)
+    paste(get_code(object), collapse = "\n")
   )
 })
 

tests/testthat/test-qenv_get_warnings.R

@@ -28,7 +28,7 @@ testthat::test_that("get_warnings accepts a qenv object with 2 warnings", {
     eval_code(bquote(warning("This is a warning 1!"))) %>%
     eval_code(bquote(warning("This is a warning 2!")))
   testthat::expect_identical(
-    get_warnings(q), # TODO fix
+    get_warnings(q),
     paste0(
       "~~~ Warnings ~~~\n\n> This is a warning 1!\nwhen running code:\nwarning(\"This is a warning 1!\")",
       "\n\n> This is a warning 2!\nwhen running code:\nwarning(\"This is a warning 2!\")\n\n",
@@ -42,11 +42,12 @@ testthat::test_that("get_warnings accepts a qenv object with a single eval_code
     warning("This is a warning 1!")
     warning("This is a warning 2!")
   }))
-  testthat::expect_identical( # TODO fix
+  testthat::expect_identical(
     get_warnings(q),
-    c(
-      "~~~ Warnings ~~~\n\n> This is a warning 1!\nwhen running code:\nwarning(\"This is a warning 1!\")\n\n> This is a warning 2!\nwhen running code:\nwarning(\"This is a warning 2!\")\n\n~~~ Trace ~~~\n\nwarning(\"This is a warning 1!\")",
-      "~~~ Warnings ~~~\n\n> This is a warning 1!\nwhen running code:\nwarning(\"This is a warning 1!\")\n\n> This is a warning 2!\nwhen running code:\nwarning(\"This is a warning 2!\")\n\n~~~ Trace ~~~\n\nwarning(\"This is a warning 2!\")"
+    paste0(
+      "~~~ Warnings ~~~\n\n> This is a warning 1!\nwhen running code:\nwarning(\"This is a warning 1!\")",
+      "\n\n> This is a warning 2!\nwhen running code:\nwarning(\"This is a warning 2!\")\n\n",
+      "~~~ Trace ~~~\n\nwarning(\"This is a warning 1!\")\nwarning(\"This is a warning 2!\")"
     )
   )
 })