在Shiny中将矢量元素拆分为单独的行

问题描述

当我使用shinyalert在模态对话框中渲染矢量元素时，我想将矢量元素分成几行。这是一个示例：

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)
@H_502_5@
我假设我需要使用HTML标记和可能的paste0。我希望框看起来像这样：
1) Question a

2) Question b

3) Question c

4) Question d
@H_502_5@
在问题和编号之间留一个空格，使它看起来更整洁。



解决方法
您的意思是这样的：
function uploadFiles() {
    var input = document.getElementById('files');
    var files = input.files;
    var formData = new FormData();

    for (var i = 0; i != files.length; i++) {
        formData.append("files",files[i]);
    }

    $.ajax(
        {
            url: "https://localhost:xxx/api/file/upload",data: formData,processData: false,contentType: false,type: "POST",success: function () {
                alert("Files Uploaded!");

            }
        }
    );
}

只需使用粘贴折叠矢量，然后在每个折叠的元素之间指定“ \ n”（行跳过）即可。