inventory_count/ui.R at master · tpsteiner/inventory_count · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
library(shiny)
library(DT)


shinyUI(
  fluidPage(
    titlePanel("Proof of concept: Inventory testing GAAP"),

    navlistPanel(widths = c(2, 4),

      "Files needed",
      tabPanel(
        "Floor-to-Sheet",
        fileInput("fts_file_info", accept = c(".csv"), label = NULL),
        mainPanel(
          dataTableOutput("fts")
        )
      ),

      tabPanel(
        "Sheet-to-Floor",
        fileInput("stf_file_info", accept = c(".csv"), label = NULL),
        mainPanel(
          dataTableOutput("stf")
        )
      ),

      tabPanel(
        "Count",
        fileInput("count_file_info", accept = c(".csv"), label = NULL),
        mainPanel(
          dataTableOutput("count")
        )
      ),

      tabPanel(
        "Sheet",
        fileInput("sheet_file_info", accept = c(".csv"), label = NULL),
        mainPanel(
          dataTableOutput("sheet")
        )
      ),

      "Results",
      tabPanel(
        "Output data"
      )
    )
  )
)