inst/OsteoSort/ui/reference.r

In jjlynch2/OsteoSort: Osteo Sorting of Commingled Human Remains

reference <- tabPanel("Reference",icon = icon("server", lib="font-awesome"),
	sidebarLayout(
		sidebarPanel(
			fluidRow(
				column(12,
					HTML("<h5><b>Import Reference</b></h5>"),
					uiOutput("importRefR")
				)
			),
			fluidRow(
				column(12,
					actionButton("clearFileRef", "Clear Import  ", icon = icon("rectangle-xmark")),
					tags$style(type = "text/css", "#clearFileRef { width:100%; font-size:85%; background-color:#126a8f }")
				)
			),
			fluidRow(
				column(12,
					uiOutput("reference_data_interface")
				)
			),
			br(),
			fluidRow(
				column(12,
					actionButton("refdel", "Delete Reference  ", icon = icon("rectangle-xmark")),
					tags$style(type = "text/css", "#refdel { width:100%; font-size:85%; background-color:#126a8f }")
				)
			),
			br(),
			fluidRow(
				column(12,
					downloadButton("refdown", "Download Reference"),
					tags$style(type = "text/css", "#refdown { width:100%; font-size:85%; background-color:#126a8f }")
				)
			),
			br(),
			fluidRow(
				column(12,
					actionButton("refsel", "Add Selected Rows  ", icon = icon("square-plus")),
					tags$style(type = "text/css", "#refsel { width:100%; font-size:85%; background-color:#126a8f }")
				)
			),
			br(),
			fluidRow(
				column(12,
					HTML("<h5><b>Reference Units</h5></b>"),
					br()
				)
			),
			fluidRow(
				column(6,
					uiOutput("units1")
				),
				column(6,
					uiOutput("units2")
				)
			),
			fluidRow(
				column(6,
					actionButton('units_add', 'Add', icon = icon("square-plus")),
					tags$style(type = "text/css", "#units_add { width:100%; font-size:85%; background-color:#126a8f }")
				),
				column(6,
					actionButton('units_delete', 'Delete', icon = icon("square-minus")),
					tags$style(type = "text/css", "#units_delete { width:100%; font-size:85%; background-color:#126a8f }")
				)
			),
			br(),
			fluidRow(
				column(12,
					HTML("<h5><b>Test Configuration</h5></b>"),
					uiOutput("config_render")
				)
			),
			fluidRow(
				column(6,
					uiOutput("config_a")
				),
				column(6,
					conditionalPanel(condition = "input.config_options == 'Articulation_t-test'",
						uiOutput("config_b")
					)
				)
			),
			fluidRow(
				column(6,
					actionButton('config_add', 'Add', icon = icon("square-plus")),
					tags$style(type = "text/css", "#config_add { width:100%; font-size:85%; background-color:#126a8f }")
				),
				column(6,
					actionButton('config_delete', 'Delete', icon = icon("square-minus")),
					tags$style(type = "text/css", "#config_delete { width:100%; font-size:85%; background-color:#126a8f }")
				)
			),
		width = 3),
		mainPanel(
			tabsetPanel(id="tabSelectedreference",
				tabPanel("Reference",
					fluidRow(
						column(12, 
							DT::dataTableOutput('reference_table')
						)
					,width = 12)
				),
			 	tabPanel("Reference Units",
					fluidRow(
						column(12,
							DT::dataTableOutput('reference_units')
						)
					,width = 12)
				),
			 	tabPanel("Test Configuration",
					fluidRow(
						column(12,
							DT::dataTableOutput('reference_config')
						)
					,width = 12)
				)
			)
		)
	)
)