Chciałbym oddzielić elementy wektorowe w oddzielne linie, gdy renderuję go w modalnym oknie dialogowym za pomocą Shinyalert. Oto przykład:

a<- c("Question a", "Question b", "Question c", "Question d")

library(shiny)
library(shinyalert)

ui <- fluidPage(
  useShinyalert()
)

server <- function(input, output) {
  shinyalert(
    title = "Hello",
    text = a,
    size = "s", 
    closeOnEsc = TRUE,
    closeOnClickOutside = FALSE,
    html = FALSE,
    type = "success",
    showConfirmButton = TRUE,
    showCancelButton = FALSE,
    confirmButtonText = "OK",
    confirmButtonCol = "#AEDEF4",
    timer = 0,
    imageUrl = "",
    animation = TRUE
  )
}

shinyApp(ui, server)

Zakładam, że będę musiał użyć znaczników HTML i możliwych pasty0. Chciałbym, żeby pudełko wyglądało na coś takiego, gdzie:

1) Question a

2) Question b

3) Question c

4) Question d

Z przestrzenią między pytaniami a numerowaniem, aby wyglądało trochę bardziej schludne.

0
karuno 16 wrzesień 2020, 16:21

1 odpowiedź

Najlepsza odpowiedź

Masz na myśli tak:

a<- c("Question a", "Question b", "Question c", "Question d")

library(shiny)
library(shinyalert)

ui <- fluidPage(
  useShinyalert()
)

server <- function(input, output) {
  shinyalert(
    title = "Hello",
    text = paste0(1:4, ") ", a, collapse="\n"),
    closeOnEsc = TRUE,
    closeOnClickOutside = FALSE,
    html = FALSE,
    type = "success",
    showConfirmButton = TRUE,
    showCancelButton = FALSE,
    confirmButtonText = "OK",
    confirmButtonCol = "#AEDEF4",
    timer = 0,
    imageUrl = "",
    animation = TRUE
  )
}

shinyApp(ui, server)

Zwiń wektor za pomocą pasty i określić "n" (linyKIP) między każdym zawalonym elementem.

1
mfindinge 17 wrzesień 2020, 07:50