feat: break blocks of descriptions into paragraphs

Appsilon · Jun 29, 2023 · dde35f5 · dde35f5
1 parent 15ea0de
commit dde35f5
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/inst/examples/dashboard/examples.R b/inst/examples/dashboard/examples.R
@@ -92,13 +92,19 @@ readExample <- function(path) {
   list(code = code, ui = module$ui, server = module$server)
 }
 
+makeText <- function(text) {
+  strsplit(text, "\\n\\n")[[1]] %>%
+    map(Text) %>%
+    Stack(tokens = list(childrenGap = 10))
+}
+
 makeExamplePage <- function(name, example) {
   help <- getHelpList(name)
   makePage(
     name,
     "Fluent UI component",
     div(
-      makeCard("Description", Text(nowrap = FALSE, help$description)),
+      makeCard("Description", makeText(help$description)),
       makeCard("Usage", pre(help$usage)),
       imap(example, makeLiveExamplePage)
     )