inst/app-visualize/ui/ui_scatter_prh.R

In xplorerr: Tools for Interactive Data Exploration

tabPanel('Scatter Plot', value = 'tab_scatter_prh',

	fluidPage(
		fluidRow(
			column(12, align = 'left',
				h4('Scatter Plot')
			)
		),

		hr(),

		fluidRow(
			column(12,
				tabsetPanel(type = 'tabs',
					
					tabPanel('plotly',

						fluidRow(
							column(2,
								selectInput('scatly_select_x', 'Variable X: ',
                              choices = "", selected = ""),
								textInput(inputId = "scatly_xlabel", label = "X Axes Label: ",
                  value = "label"),
								textInput(inputId = "scatly_title", label = "Title: ",
									value = "title"),
								textInput(inputId = "scatly_color", label = "Color: ",
									value = ""),
								textInput(inputId = "scatly_symbol", label = "Symbol: ",
									value = "circle"),
								selectInput('scatly_fit', 'Fit Line',
									choices = c("TRUE" = TRUE, "FALSE" = FALSE),
									selected = "FALSE",  width = '150px'),
								textInput(inputId = "scatly_ltype", label = "Line Type: ",
									value = "dashed")
							),

							column(2,
								selectInput('scatly_select_y', 'Variable Y: ',
                              choices = "", selected = ""),
                textInput(inputId = "scatly_ylabel", label = "Y Axes Label: ",
                  value = "label"),
                textInput(inputId = "scatly_text", label = "Text: ",
                  value = ""),
                numericInput(inputId = "scatly_opacity", label = "Opacity: ",
                	min = 0, max = 1, step = 0.1, value = 0.5),
                numericInput(inputId = "scatly_size", label = "Size: ",
                	min = 1, step = 1, value = 5),
                textInput(inputId = "scatly_lcol", label = "Line Color: ",
                  value = ""),
                numericInput(inputId = "scatly_lsize", label = "Line Width: ",
                	min = 0, step = 0.1, value = 1)
							),

							column(8, align = 'center',
                plotly::plotlyOutput('scatly_plot_1', height = '600px')
              )
						)
					),

					tabPanel('rbokeh',

						fluidRow(
							column(4, 
								fluidRow(
									column(6,
										selectInput('boscat_select_x', 'Variable X: ',
		                              choices = "", selected = ""),
										numericInput(inputId = 'boscat_shape', 'Shape: ',
											min = 0, max = 25, value = 22, step = 1),
										textInput(inputId = "boscat_color", label = "Color: ",
		                  value = ""),
										selectInput('boscat_xgrid', 'X Axis Grid: ',
		                              choices = c("TRUE" = TRUE, "FALSE" = FALSE), selected = "TRUE"),
										textInput(inputId = "boscat_xlabel", label = "X Axes Label: ",
		                  value = "label"),
										textInput(inputId = "boscat_title", label = "Title: ",
											value = "title")
									),

									column(6,
										selectInput('boscat_select_y', 'Variable Y: ',
		                              choices = "", selected = ""),
										numericInput(inputId = 'boscat_size', 'Size: ',
											min = 0, value = 5, step = 1),
										numericInput(inputId = 'boscat_alpha', 'Alpha: ',
											min = 0, max = 1, value = 1, step = 0.1),
										selectInput('boscat_ygrid', 'Y Axis Grid: ',
		                              choices = c("TRUE" = TRUE, "FALSE" = FALSE), selected = "TRUE"),
		                textInput(inputId = "boscat_ylabel", label = "Y Axes Label: ",
		                  value = "label"),
		                selectInput('boscat_fitline', 'Fit Line: ',
		                              choices = c("TRUE" = TRUE, "FALSE" = FALSE), selected = "FALSE")
									)
								),

								fluidRow(column(12, h5('Fit Line'))),

								fluidRow(
									column(6,
										numericInput(inputId = 'boscat_fint', 'Intercept: ',
											value = 0, step = 1),
										textInput(inputId = "boscat_lcolor", label = "Color: ",
											value = ""),
										numericInput(inputId = 'boscat_lwidth', 'Width: ',
											min = 0, value = 1, step = 0.1)
									),
									column(6,
										numericInput(inputId = 'boscat_fslope', 'Slope: ',
											value = 0, step = 1),
										numericInput(inputId = 'boscat_lalpha', 'Alpha: ',
											min = 0, max = 1, value = 1, step = 0.1),
										numericInput(inputId = 'boscat_ltype', 'Type: ',
											min = 1, value = 1, max = 5, step = 1)
									)
								)
							),

							column(8, align = 'center',
                rbokeh::rbokehOutput('boscat_plot_1', height = '600px')
              )
						)
					),

					tabPanel('highcharts',
						fluidRow(
							column(2,
								selectInput('hiscat_select_x', 'Variable X: ',
                              choices = "", selected = ""),
								textInput(inputId = "hiscat_symbol", label = "Symbol: ",
									value = "circle"),
								textInput(inputId = "hiscat_color", label = "Color: ",
									value = "blue"),
								numericInput(inputId = "hiscat_lsize", label = "Line Width: ",
                	min = 0, step = 0.1, value = 4),
								textInput(inputId = "hiscat_title", label = "Title: ",
									value = "title"),
								textInput(inputId = "hiscat_xlabel", label = "X Axes Label: ",
                  value = "label")
							),
							column(2,
								selectInput('hiscat_select_y', 'Variable Y: ',
                              choices = "", selected = ""),
								numericInput(inputId = "hiscat_size", label = "Size: ",
                	min = 1, step = 1, value = 5),
								selectInput('hiscat_fit', 'Fit Line',
									choices = c("TRUE" = TRUE, "FALSE" = FALSE),
									selected = "FALSE",  width = '150px'),
								textInput(inputId = "hiscat_lcol", label = "Line Color: ",
                  value = "black"),
								textInput(inputId = "hiscat_subtitle", label = "Subtitle: ",
									value = "title"),
                textInput(inputId = "hiscat_ylabel", label = "Y Axes Label: ",
                  value = "label")
							),
							column(8, align = 'center',
								highcharter::highchartOutput('hiscat_plot_1', height = '600px')
							)
						)
					)

				)
			)
		)
	)
)