You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
96 lines
2.9 KiB
96 lines
2.9 KiB
3 years ago
|
#
|
||
|
|
# This is the user-interface definition of a Shiny web application. You can
|
||
|
|
# run the application by clicking 'Run App' above.
|
||
|
|
#
|
||
|
|
# Find out more about building applications with Shiny here:
|
||
|
|
#
|
||
|
|
# http://shiny.rstudio.com/
|
||
|
|
#
|
||
|
|
|
||
|
|
library(shiny)
|
||
|
|
library(DT)
|
||
|
|
library(readxl)
|
||
|
|
library(dplyr)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
# Define UI for application that draws a histogram
|
||
|
|
shinyUI(fluidPage(
|
||
|
|
|
||
|
|
# Application title
|
||
|
|
titlePanel("Tasks"),
|
||
|
|
|
||
|
|
# Sidebar with a slider input for number of bins
|
||
|
|
sidebarLayout(
|
||
|
|
sidebarPanel(
|
||
|
|
width = 3,
|
||
|
|
fileInput("oldfile", "Choose CSV File",
|
||
|
|
multiple = FALSE,
|
||
|
|
accept = c("text/csv",
|
||
|
|
"text/comma-separated-values,text/plain",
|
||
|
|
".csv")),
|
||
|
|
tags$hr(),
|
||
|
|
radioButtons("sep", "Separator",
|
||
|
|
choices = c(Comma = ",",
|
||
|
|
Semicolon = ";",
|
||
|
|
Tab = "\t"),
|
||
|
|
selected = ";")
|
||
|
|
|
||
|
|
),
|
||
|
|
|
||
|
|
# Show a plot of the generated distribution
|
||
|
|
mainPanel(
|
||
|
|
fluidRow(
|
||
|
|
h3("Input Data"),
|
||
|
|
dataTableOutput("contents")
|
||
|
|
),
|
||
|
|
fluidRow(
|
||
|
|
h3("Task")
|
||
|
|
),
|
||
|
|
fluidRow(
|
||
|
|
column(width = 6,
|
||
|
|
h4("Output"),
|
||
|
|
dataTableOutput("task"),
|
||
|
|
downloadButton("taskdl", "Download")
|
||
|
|
),
|
||
|
|
column(width = 6,
|
||
|
|
h4("Errors"),
|
||
|
|
tabsetPanel(
|
||
|
|
tabPanel("Summary", dataTableOutput("taskerror")),
|
||
|
|
tabPanel("Mandatory", dataTableOutput("taskerrorman")),
|
||
|
|
tabPanel("Codelist", dataTableOutput("taskerrorcode")),
|
||
|
|
tabPanel("Length", dataTableOutput("taskerrorlength")),
|
||
|
|
tabPanel("Unmatched", dataTableOutput("taskerrorunmatched"))
|
||
|
|
)
|
||
|
|
)
|
||
|
|
),
|
||
|
|
fluidRow(
|
||
|
|
h3("Notes")
|
||
|
|
),
|
||
|
|
fluidRow(
|
||
|
|
column(width = 6,
|
||
|
|
h4("Output"),
|
||
|
|
h5("Notes"),
|
||
|
|
dataTableOutput("notes"),
|
||
|
|
downloadButton("tasknotesdl", "Download")
|
||
|
|
),
|
||
|
|
column(width = 6,
|
||
|
|
h4("Errors"),
|
||
|
|
tabsetPanel(
|
||
|
|
tabPanel("Summary", dataTableOutput("tasknoteserror")),
|
||
|
|
tabPanel("Mandatory", dataTableOutput("tasknoteserrorman")),
|
||
|
|
tabPanel("Codelist", dataTableOutput("tasknoteserrorcode")),
|
||
|
|
tabPanel("Length", dataTableOutput("tasknoteserrorlength"))
|
||
|
|
)
|
||
|
|
|
||
|
|
)
|
||
|
|
),
|
||
|
|
fluidRow(
|
||
|
|
h3("Attachments"),
|
||
|
|
dataTableOutput("taskatt"),
|
||
|
|
downloadButton("taskattdl")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
))
|