fix(MarkdownStream): width and height are now respected; set a maximum width of 680px with auto margins (#35)

* fix(MarkdownStream): width and height are now respected; set a maximum width of 680px with auto margins

* roxygen

* Approve new snapshots

Author: cpsievert

R/markdown-stream.R

@@ -45,7 +45,7 @@ output_markdown_stream <- function(
   content = "",
   content_type = "markdown",
   auto_scroll = TRUE,
-  width = "100%",
+  width = "min(680px, 100%)",
   height = "auto"
 ) {
 
@@ -63,7 +63,8 @@ output_markdown_stream <- function(
       id = id,
       style = css(
         width = width,
-        height = height
+        height = height,
+        margin = "0 auto"
       ),
       content = ui[["html"]],
       "content-type" = content_type,

inst/lib/shiny/GIT_VERSION

@@ -1 +1 @@
-9b613752c110130667e17d17a7bbec5ac31a8977
+29a1c66250368a93dab4b15eab1fc3325600f811