ePubLangMerger/ui.R at main · GeiserX/ePubLangMerger · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
library(shiny)

shinyUI(
  navbarPage("ePub Merger", id = "navbar", position = "static-top",
             inverse = FALSE, theme = "bootstrap.css",

    tabPanel("Main",
      sidebarPanel(
        p("Upload two epub files of the same book in different languages.",
          "The tool merges the second language into the first as sibling paragraphs."),
        fileInput("epub1", label = "First Language", accept = ".epub"),
        fileInput("epub2", label = "Second Language", accept = ".epub"),
        actionButton("submit", "Go!")
      ),

      mainPanel(
        uiOutput("descargaUI")
      )
    )
  )
)