在flexdashboard中上载文件

<input type="file" id="fileUpload">

$(document).on('change', '#fileUpload', function() {
  var file = $(this)[0].files[0];
  var reader = new FileReader();
  reader.onload = function(e) {
    // 处理文件内容
    var fileContent = e.target.result;
    // 或者上传文件到服务器
    var formData = new FormData();
    formData.append('file', file);
    // 使用Ajax发送文件数据
    $.ajax({
      url: '/upload',
      type: 'POST',
      data: formData,
      processData: false,
      contentType: false,
      success: function(response) {
        // 上传成功后的处理
      },
      error: function(xhr, status, error) {
        // 上传失败的处理
      }
    });
  };
  reader.readAsText(file);
});

library(shiny)

ui <- fluidPage(
  fileInput("fileUpload", "选择文件"),
  actionButton("uploadButton", "上传文件")
)

server <- function(input, output) {
  observeEvent(input$uploadButton, {
    file <- input$fileUpload
    if (!is.null(file)) {
      # 处理文件上传逻辑
      # ...
      # 上传成功后的处理
      showModal(modalDialog(
        title = "上传成功",
        "文件已成功上传。",
        easyClose = TRUE
      ))
    }
  })
}

shinyApp(ui, server)