inst/shiny-app/server.R

In behrica/mssTablesToExcel: Extracts all tables from an xml in format xmlns="http://oasis-lmc.org/mss

library(magrittr)
library(tidyverse)
library(mssTablesToExcel)

shinyServer(function(input, output) {

    output$message <- renderText({

        inFile <- input$xmlFile
        if (is.null(inFile))
            return("Tables not ready yet...")
        else {
            extractTables(inFile$datapath) %>% writeToExcel()
            return("Tables ready")
            }
    })

    output$downloadData <- downloadHandler(
    filename = function() {
      "tables.xlsx"
    },
    content = function(file) {
      file.copy("./tables.xlsx",file)

    }
  )
})