PaulC91

library(shinydashboard)
library(dplyr)

ui <- navbarPage("test",
                 tabPanel("dataBuilder", icon = icon("database"),
                          fluidRow(
                            box(width = 3, title = "Data Upload", solidHeader = TRUE, status = "primary",
                                helpText("Choose CSV File (Max size 10 MB)"),
                                fileInput("file1", "",
                                          multiple = FALSE,