inst/PhyloProfile/ui.R
In trvinh/PhyloProfileCorona: PhyloProfileCorona
#' Import function files
sourceFiles = list.files(path = "R", pattern = "*.R$", full.names = TRUE)
lapply(sourceFiles, source, .GlobalEnv)
#' MAIN UI ====================================================================
shinyUI(
fluidPage(
tags$style(type = "text/css", "body {padding-top: 80px;}"),
useShinyjs(),
# Application title
titlePanel("", windowTitle = "PhyloProfileCorona"),
# TOP WELLPANEL FOR PLOT CONFIGURATION ---------------------------------
conditionalPanel(
condition = "input.tabs=='Main profile'",
wellPanel(
fluidRow(
column(
2,
radioButtons(
inputId = "xAxis",
label = "Choose type of x-axis:",
choices = list("taxa", "genes"),
selected = "taxa",
inline = TRUE
),
hr(),
checkboxInput(
"autoUpdate",
strong(em("Auto update plot")),
value = TRUE,
width = NULL
)
),
column(
1,
createPlotSize("width", "Width (px)", 1600),
actionButton(
"setColor", "Change colors",
style = "padding:4px; font-size:100%"
)
),
column(
1, createPlotSize("height", "Height (px)", 750),
actionButton("mainPlotConfig", "Appearance")
),
column(
2, uiOutput("var1Cutoff.ui")
),
column(
2, uiOutput("var2Cutoff.ui")
),
column(
2, uiOutput("percentCutoff.ui")
),
column(
2,
numericInput(
"coortholog",
"Max co-orthologs",
min = 1,
max = 999,
step = 1,
value = 999,
width = 150
),
bsButton(
"resetMain",
"Reset cutoffs",
style = "danger",
icon = icon("backward")
)
)
)
)
),
conditionalPanel(
condition = "input.tabs=='Customized profile'",
wellPanel(
fluidRow(
column(
2,
radioButtons(
inputId = "xAxisSelected",
label = "Choose type of x-axis:",
choices = list("taxa", "genes"),
selected = "taxa",
inline = TRUE
),
hr(),
checkboxInput(
"autoUpdateSelected",
strong(em("Auto update plot")),
value = TRUE,
width = NULL
)
),
column(
1,
createPlotSize("selectedWidth", "Width (px)", 600),
checkboxInput(
"selectedAutoSizing",
strong(em("Auto sizing")),
value = TRUE,
width = NULL
)
),
column(
1, createPlotSize("selectedHeight", "Height (px)", 600),
actionButton("selectedPlotConfig", "Appearance")
),
column(
2, uiOutput("var1Filter.ui")
),
column(
2, uiOutput("var2Filter.ui")
),
column(
2, uiOutput("percentFilter.ui")
),
column(
2,
uiOutput("coorthologFilter.ui"),
bsButton(
"resetSelected",
"Reset cutoffs",
style = "danger",
icon = icon("backward")
)
)
)
)
),
# MAIN NARVARPAGE TABS -------------------------------------------------
navbarPage(
em(strong("PhyloProfile Corona")),
id = "tabs",
collapsible = TRUE,
inverse = TRUE,
fluid = TRUE,
position = "fixed-top",
# MAIN PROFILE TAB =================================================
tabPanel(
"Main profile",
sidebarLayout(
# * sidebar panel for profile highlight --------------------
sidebarPanel(
uiOutput("totalGeneNumber.ui"),
column(
4,
numericInput(
"stIndex",
"Show from:",
min = 1,
max = 1600,
value = 1,
width = 100
),
style = "padding:0px;"
),
column(
4,
numericInput(
"endIndex",
"...to:",
min = 1,
max = 1600,
value = 1000,
width = 100
),
style = "padding:0px;"
),
column(
4, uiOutput("highlightGeneUI")
),
bsPopover(
"highlightGeneUI",
"",
"Select gene to highlight",
"bottom"
),
bsPopover(
"stIndex",
"",
"Set start index for sequence range",
"bottom"
),
bsPopover(
"endIndex",
"",
"Set end index for sequence range",
"bottom"
),
br(),
uiOutput("highlightTaxonUI"),
conditionalPanel(
condition = "input.autoUpdate == false",
bsButton(
"updateBtn",
"Update plot",
style = "warning",
icon("refresh")
)
)
),
# * main panel for profile plot ----------------------------
mainPanel(
createProfilePlotUI("mainProfile")
)
)
),
# CUSTOMIZED PROFILE TAB ===========================================
tabPanel(
"Customized profile",
sidebarLayout(
# * sidebar panel for subseting data -----------------------
sidebarPanel(
width = 4,
column(
12,
style = "padding:0px;",
strong("Select sequence(s) of interest:")
),
column(
12,
fluidRow(
column(
8,
style = "padding:0px;",
uiOutput("geneIn")
),
column(
4,
fileInput("customFile", "", width = "100%")
)
)
),
column(
12,
style = "padding:0px;",
strong(
"Select (super)taxon/(super)taxa of interest:"
)
),
column(
12,
fluidRow(
column(
8,
style = "padding:0px;",
uiOutput("taxaIn")
)
)
),
h5(""),
conditionalPanel(
condition = "input.autoUpdateSelected == false",
bsButton(
"plotCustom",
"Update plot",
style = "warning",
icon("refresh")
)
)
),
# * main panel for customized profile plot -----------------
mainPanel(
conditionalPanel(
condition = "output.sameProfile == true",
h4(
"Please select subset of genes and/
or taxa for customized profile!"
)
),
createProfilePlotUI("customizedProfile")
)
)
),
# FUNCTION TAB =====================================================
navbarMenu(
"Function",
# * Distribution analysis --------------------------------------
tabPanel(
"Distribution analysis",
h4(strong("Distribution analysis")),
bsAlert("descDistributionUI"),
wellPanel(
fluidRow(
column(
2,
selectInput(
"dataset.distribution", "Select data",
choices = c("Main data", "Customized data"),
selected = "Main data"
),
uiOutput("selected.distribution")
),
column(
2, uiOutput("var1Dist.ui")
),
column(
2, uiOutput("var2Dist.ui")
),
column(
2, uiOutput("percentDist.ui")
),
column(
2,
createTextSize(
"distTextSize", "Label size", 12, 100
)
),
column(
2,
createPlotSize(
"distWidth", "Width (px)", 600
)
)
)
),
analyzeDistributionUI("distPlot")
),
# * Core gene identification ----------------------------------
tabPanel(
"Core gene identification",
h4(strong("Core gene identification")),
bsAlert("descCoreGeneUI"),
wellPanel(
fluidRow(
column(
3, uiOutput("var1Core.ui")
),
column(
3, uiOutput("var2Core.ui")
),
column(
3, uiOutput("percentCore.ui")
),
column(
3,
sliderInput(
"coreCoverage",
"Core taxa coverage",
min = 0,
max = 100,
value = 100,
step = 5
)
),
column(
12,
uiOutput("taxaListCore.ui"),
bsButton("browseTaxaCore", "Browse")
)
)
),
hr(),
column(
4,
downloadButton(
"coreGeneTableDownload", "Download gene list"
),
checkboxInput(
"addCoreGeneCustomProfile",
strong(em("Add core genes to Customized profile",
style = "color:red")),
value = FALSE,
width = NULL
),
uiOutput("addCoreGeneCustomProfileCheck.ui")
),
identifyCoreGeneUI("coreGene")
)
),
# DATA DOWNLOAD TAB ================================================
navbarMenu(
"Download filtered data",
downloadFilteredMainUI("filteredMainDownload"),
downloadFilteredCustomizedUI("filteredCustomizedDownload")
),
# HELP TAB =========================================================
navbarMenu(
"Help",
tabPanel(
a(
"Corona data",
href = "https://applbio.biologie.uni-frankfurt.de/download/SARS-CoV-2",
target = "_blank"
)
),
tabPanel(
a(
"Wiki",
href = "https://github.com/BIONF/PhyloProfile/wiki",
target = "_blank"
)
),
tabPanel(
a(
"About",
href = "https://BIONF.github.io/PhyloProfile/",
target = "_blank"
)
)
)
),
# LIST OF POP-UP WINDOWS ===============================================
# * popup for plotting detailed plot -----------------------------------
bsModal(
"modalBs",
"Detailed plot",
"detailedBtn",
size = "large",
fluidRow(
column(
2, createPlotSize("detailedHeight", "Height (px)", 100)
),
column(
3, createTextSize("detailedText", "Text size (px)", 12, 150)
),
column(
7,
checkboxInput(
"detailedRemoveNA",
strong("Hide taxa that have no ortholog (NAs)",
style = "color:red"),
value = FALSE
),
checkboxInput(
"detailedFilter",
strong("Apply filters",
style = "color:red"),
value = FALSE
)
)
),
hr(),
createDetailedPlotUI("detailedPlot"),
bsButton(
"doDomainPlot", "Show domain architecture", disabled = FALSE
),
uiOutput("checkDomainFiles"),
br(),
h4("Sequence:"),
verbatimTextOutput("fasta")
),
# * popup for plotting domain architecture plot ------------------------
bsModal(
"plotArchi",
"Domain architecture",
"doDomainPlot",
size = "large",
fluidRow(
column(
2, createPlotSize("archiHeight", "Plot height(px)", 200)
),
column(
2, createPlotSize("archiWidth", "Plot width(px)", 800)
),
column(
2,
createTextSize("titleArchiSize", "Title size(px)", 11, 150)
),
column(
2,
createTextSize("labelArchiSize", "SeqID size(px)", 11, 150)
)
),
uiOutput("test.ui"),
createArchitecturePlotUI("archiPlot")
),
# * popup for setting plot colors (profiles) ---------------------------
bsModal(
"color",
"Set colors for profile",
"setColor",
size = "small",
colourpicker::colourInput(
"lowColorVar1",
"Low variable 1 (dot)",
value = "#FF8C00"
),
colourpicker::colourInput(
"highColorVar1",
"High variable 1 (dot)",
value = "#3B7EB8"
),
actionButton(
"defaultColorVar1",
"Default",
style = "padding:4px; font-size:100%"
),
hr(),
colourpicker::colourInput(
"lowColorVar2",
"Low variable 2 (background)",
value = "#D1AA77"
),
colourpicker::colourInput(
"highColorVar2",
"High variable 2 (background)",
value = "#F2F2F2"
),
actionButton(
"defaultColorVar2",
"Default",
style = "padding:4px; font-size:100%"
),
hr(),
colourpicker::colourInput(
"paraColor",
"Color for inparalogs",
value = "#07d000"
),
actionButton(
"defaultColorPara",
"Default",
style = "padding:4px; font-size:100%"
)
),
# * popup for setting Main plot configurations -------------------------
bsModal(
"mainPlotConfigBs",
"Plot appearance configuration",
"mainPlotConfig",
size = "small",
column(
6, createTextSize("xSize", "X-axis label size (px)", 11, 100)
),
column(
6, createTextSize("ySize", "Y-axis label size (px)", 13, 100)
),
column(
6,
createTextSize("legendSize", "Legend label size (px)", 8, 150)
),
column(
6,
selectInput(
"mainLegend", label = "Legend position:",
choices = list("Right" = "right",
"Left" = "left",
"Top" = "top",
"Bottom" = "bottom",
"Hide" = "none"),
selected = "right",
width = 150
)
),
column(
12,
HTML("<strong>Angle for x-axis label</strong>:<br>"),
sliderInput(
"xAngle",
"",
min = 0,
max = 90,
step = 10,
value = 60,
width = 250
),
br()
),
column(
12,
HTML("<strong>Zooming factor (α) for dots on
profile</strong>:<br>"),
sliderInput(
"dotZoom", "",
min = -1,
max = 3,
step = 0.1,
value = 0,
width = 250
),
HTML("<em>dot size = (1+α)*defaultSize<br>defaultSize
=[0:5]</em>"),
uiOutput("dotSizeInfo"),
br()
),
br(),
hr(),
bsButton("resetMainConfig", "Reset", style = "danger"),
bsButton("applyMainConfig", "Done", style = "warning")
),
# * popup for setting Customized plot configurations -------------------
bsModal(
"selectedPlotConfigBs",
"Plot appearance configuration",
"selectedPlotConfig",
size = "small",
column(
6,
createTextSize("xSizeSelect", "X-axis label size (px)", 8, 100)
),
column(
6,
createTextSize("ySizeSelect", "Y-axis label size (px)", 8, 100)
),
column(
6,
createTextSize("legendSizeSelect", "Legend label size (px)",
8, 150)
),
column(
6,
selectInput(
"selectedLegend", label = "Legend position:",
choices = list("Right" = "right",
"Left" = "left",
"Top" = "top",
"Bottom" = "bottom",
"Hide" = "none"),
selected = "right",
width = 150
)
),
column(
12,
HTML("<strong>Angle for x-axis label</strong>:<br>"),
sliderInput(
"xAngleSelect", "",
min = 0,
max = 90,
step = 10,
value = 60,
width = 250
),
br()
),
column(
12,
HTML("<strong>Zooming factor (α) for dots on
profile</strong>:<br>"),
sliderInput(
"dotZoomSelect", "",
min = -1,
max = 3,
step = 0.1,
value = 0,
width = 250
),
HTML("<em>dot size = (1+α)*defaultSize<br>
defaultSize=[0:5]</em>"),
uiOutput("dotSizeInfoSelect"),
br()
),
br(),
hr(),
bsButton("resetSelectedConfig", "Reset", style = "danger"),
bsButton("applySelectedConfig", "Done", style = "warning")
),
# POINT INFO BOX =======================================================
conditionalPanel(
condition =
"input.tabs=='Main profile' ||
input.tabs=='Customized profile'",
absolutePanel(
bottom = 5, left = 30,
fixed = TRUE,
draggable = TRUE,
h5("Point's info:"),
verbatimTextOutput("pointInfo"),
conditionalPanel(
condition = "output.pointInfoStatus == 0",
bsButton(
"detailedBtn",
"Detailed plot",
style = "success",
disabled = FALSE
)
),
style = "opacity: 0.80"
)
)
)
)
trvinh/PhyloProfileCorona documentation built on Feb. 10, 2021, 9:42 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#' Import function files
sourceFiles = list.files(path = "R", pattern = "*.R$", full.names = TRUE)
lapply(sourceFiles, source, .GlobalEnv)
#' MAIN UI ====================================================================
shinyUI(
fluidPage(
tags$style(type = "text/css", "body {padding-top: 80px;}"),
useShinyjs(),
# Application title
titlePanel("", windowTitle = "PhyloProfileCorona"),
# TOP WELLPANEL FOR PLOT CONFIGURATION ---------------------------------
conditionalPanel(
condition = "input.tabs=='Main profile'",
wellPanel(
fluidRow(
column(
2,
radioButtons(
inputId = "xAxis",
label = "Choose type of x-axis:",
choices = list("taxa", "genes"),
selected = "taxa",
inline = TRUE
),
hr(),
checkboxInput(
"autoUpdate",
strong(em("Auto update plot")),
value = TRUE,
width = NULL
)
),
column(
1,
createPlotSize("width", "Width (px)", 1600),
actionButton(
"setColor", "Change colors",
style = "padding:4px; font-size:100%"
)
),
column(
1, createPlotSize("height", "Height (px)", 750),
actionButton("mainPlotConfig", "Appearance")
),
column(
2, uiOutput("var1Cutoff.ui")
),
column(
2, uiOutput("var2Cutoff.ui")
),
column(
2, uiOutput("percentCutoff.ui")
),
column(
2,
numericInput(
"coortholog",
"Max co-orthologs",
min = 1,
max = 999,
step = 1,
value = 999,
width = 150
),
bsButton(
"resetMain",
"Reset cutoffs",
style = "danger",
icon = icon("backward")
)
)
)
)
),
conditionalPanel(
condition = "input.tabs=='Customized profile'",
wellPanel(
fluidRow(
column(
2,
radioButtons(
inputId = "xAxisSelected",
label = "Choose type of x-axis:",
choices = list("taxa", "genes"),
selected = "taxa",
inline = TRUE
),
hr(),
checkboxInput(
"autoUpdateSelected",
strong(em("Auto update plot")),
value = TRUE,
width = NULL
)
),
column(
1,
createPlotSize("selectedWidth", "Width (px)", 600),
checkboxInput(
"selectedAutoSizing",
strong(em("Auto sizing")),
value = TRUE,
width = NULL
)
),
column(
1, createPlotSize("selectedHeight", "Height (px)", 600),
actionButton("selectedPlotConfig", "Appearance")
),
column(
2, uiOutput("var1Filter.ui")
),
column(
2, uiOutput("var2Filter.ui")
),
column(
2, uiOutput("percentFilter.ui")
),
column(
2,
uiOutput("coorthologFilter.ui"),
bsButton(
"resetSelected",
"Reset cutoffs",
style = "danger",
icon = icon("backward")
)
)
)
)
),
# MAIN NARVARPAGE TABS -------------------------------------------------
navbarPage(
em(strong("PhyloProfile Corona")),
id = "tabs",
collapsible = TRUE,
inverse = TRUE,
fluid = TRUE,
position = "fixed-top",
# MAIN PROFILE TAB =================================================
tabPanel(
"Main profile",
sidebarLayout(
# * sidebar panel for profile highlight --------------------
sidebarPanel(
uiOutput("totalGeneNumber.ui"),
column(
4,
numericInput(
"stIndex",
"Show from:",
min = 1,
max = 1600,
value = 1,
width = 100
),
style = "padding:0px;"
),
column(
4,
numericInput(
"endIndex",
"...to:",
min = 1,
max = 1600,
value = 1000,
width = 100
),
style = "padding:0px;"
),
column(
4, uiOutput("highlightGeneUI")
),
bsPopover(
"highlightGeneUI",
"",
"Select gene to highlight",
"bottom"
),
bsPopover(
"stIndex",
"",
"Set start index for sequence range",
"bottom"
),
bsPopover(
"endIndex",
"",
"Set end index for sequence range",
"bottom"
),
br(),
uiOutput("highlightTaxonUI"),
conditionalPanel(
condition = "input.autoUpdate == false",
bsButton(
"updateBtn",
"Update plot",
style = "warning",
icon("refresh")
)
)
),
# * main panel for profile plot ----------------------------
mainPanel(
createProfilePlotUI("mainProfile")
)
)
),
# CUSTOMIZED PROFILE TAB ===========================================
tabPanel(
"Customized profile",
sidebarLayout(
# * sidebar panel for subseting data -----------------------
sidebarPanel(
width = 4,
column(
12,
style = "padding:0px;",
strong("Select sequence(s) of interest:")
),
column(
12,
fluidRow(
column(
8,
style = "padding:0px;",
uiOutput("geneIn")
),
column(
4,
fileInput("customFile", "", width = "100%")
)
)
),
column(
12,
style = "padding:0px;",
strong(
"Select (super)taxon/(super)taxa of interest:"
)
),
column(
12,
fluidRow(
column(
8,
style = "padding:0px;",
uiOutput("taxaIn")
)
)
),
h5(""),
conditionalPanel(
condition = "input.autoUpdateSelected == false",
bsButton(
"plotCustom",
"Update plot",
style = "warning",
icon("refresh")
)
)
),
# * main panel for customized profile plot -----------------
mainPanel(
conditionalPanel(
condition = "output.sameProfile == true",
h4(
"Please select subset of genes and/
or taxa for customized profile!"
)
),
createProfilePlotUI("customizedProfile")
)
)
),
# FUNCTION TAB =====================================================
navbarMenu(
"Function",
# * Distribution analysis --------------------------------------
tabPanel(
"Distribution analysis",
h4(strong("Distribution analysis")),
bsAlert("descDistributionUI"),
wellPanel(
fluidRow(
column(
2,
selectInput(
"dataset.distribution", "Select data",
choices = c("Main data", "Customized data"),
selected = "Main data"
),
uiOutput("selected.distribution")
),
column(
2, uiOutput("var1Dist.ui")
),
column(
2, uiOutput("var2Dist.ui")
),
column(
2, uiOutput("percentDist.ui")
),
column(
2,
createTextSize(
"distTextSize", "Label size", 12, 100
)
),
column(
2,
createPlotSize(
"distWidth", "Width (px)", 600
)
)
)
),
analyzeDistributionUI("distPlot")
),
# * Core gene identification ----------------------------------
tabPanel(
"Core gene identification",
h4(strong("Core gene identification")),
bsAlert("descCoreGeneUI"),
wellPanel(
fluidRow(
column(
3, uiOutput("var1Core.ui")
),
column(
3, uiOutput("var2Core.ui")
),
column(
3, uiOutput("percentCore.ui")
),
column(
3,
sliderInput(
"coreCoverage",
"Core taxa coverage",
min = 0,
max = 100,
value = 100,
step = 5
)
),
column(
12,
uiOutput("taxaListCore.ui"),
bsButton("browseTaxaCore", "Browse")
)
)
),
hr(),
column(
4,
downloadButton(
"coreGeneTableDownload", "Download gene list"
),
checkboxInput(
"addCoreGeneCustomProfile",
strong(em("Add core genes to Customized profile",
style = "color:red")),
value = FALSE,
width = NULL
),
uiOutput("addCoreGeneCustomProfileCheck.ui")
),
identifyCoreGeneUI("coreGene")
)
),
# DATA DOWNLOAD TAB ================================================
navbarMenu(
"Download filtered data",
downloadFilteredMainUI("filteredMainDownload"),
downloadFilteredCustomizedUI("filteredCustomizedDownload")
),
# HELP TAB =========================================================
navbarMenu(
"Help",
tabPanel(
a(
"Corona data",
href = "https://applbio.biologie.uni-frankfurt.de/download/SARS-CoV-2",
target = "_blank"
)
),
tabPanel(
a(
"Wiki",
href = "https://github.com/BIONF/PhyloProfile/wiki",
target = "_blank"
)
),
tabPanel(
a(
"About",
href = "https://BIONF.github.io/PhyloProfile/",
target = "_blank"
)
)
)
),
# LIST OF POP-UP WINDOWS ===============================================
# * popup for plotting detailed plot -----------------------------------
bsModal(
"modalBs",
"Detailed plot",
"detailedBtn",
size = "large",
fluidRow(
column(
2, createPlotSize("detailedHeight", "Height (px)", 100)
),
column(
3, createTextSize("detailedText", "Text size (px)", 12, 150)
),
column(
7,
checkboxInput(
"detailedRemoveNA",
strong("Hide taxa that have no ortholog (NAs)",
style = "color:red"),
value = FALSE
),
checkboxInput(
"detailedFilter",
strong("Apply filters",
style = "color:red"),
value = FALSE
)
)
),
hr(),
createDetailedPlotUI("detailedPlot"),
bsButton(
"doDomainPlot", "Show domain architecture", disabled = FALSE
),
uiOutput("checkDomainFiles"),
br(),
h4("Sequence:"),
verbatimTextOutput("fasta")
),
# * popup for plotting domain architecture plot ------------------------
bsModal(
"plotArchi",
"Domain architecture",
"doDomainPlot",
size = "large",
fluidRow(
column(
2, createPlotSize("archiHeight", "Plot height(px)", 200)
),
column(
2, createPlotSize("archiWidth", "Plot width(px)", 800)
),
column(
2,
createTextSize("titleArchiSize", "Title size(px)", 11, 150)
),
column(
2,
createTextSize("labelArchiSize", "SeqID size(px)", 11, 150)
)
),
uiOutput("test.ui"),
createArchitecturePlotUI("archiPlot")
),
# * popup for setting plot colors (profiles) ---------------------------
bsModal(
"color",
"Set colors for profile",
"setColor",
size = "small",
colourpicker::colourInput(
"lowColorVar1",
"Low variable 1 (dot)",
value = "#FF8C00"
),
colourpicker::colourInput(
"highColorVar1",
"High variable 1 (dot)",
value = "#3B7EB8"
),
actionButton(
"defaultColorVar1",
"Default",
style = "padding:4px; font-size:100%"
),
hr(),
colourpicker::colourInput(
"lowColorVar2",
"Low variable 2 (background)",
value = "#D1AA77"
),
colourpicker::colourInput(
"highColorVar2",
"High variable 2 (background)",
value = "#F2F2F2"
),
actionButton(
"defaultColorVar2",
"Default",
style = "padding:4px; font-size:100%"
),
hr(),
colourpicker::colourInput(
"paraColor",
"Color for inparalogs",
value = "#07d000"
),
actionButton(
"defaultColorPara",
"Default",
style = "padding:4px; font-size:100%"
)
),
# * popup for setting Main plot configurations -------------------------
bsModal(
"mainPlotConfigBs",
"Plot appearance configuration",
"mainPlotConfig",
size = "small",
column(
6, createTextSize("xSize", "X-axis label size (px)", 11, 100)
),
column(
6, createTextSize("ySize", "Y-axis label size (px)", 13, 100)
),
column(
6,
createTextSize("legendSize", "Legend label size (px)", 8, 150)
),
column(
6,
selectInput(
"mainLegend", label = "Legend position:",
choices = list("Right" = "right",
"Left" = "left",
"Top" = "top",
"Bottom" = "bottom",
"Hide" = "none"),
selected = "right",
width = 150
)
),
column(
12,
HTML("<strong>Angle for x-axis label</strong>:<br>"),
sliderInput(
"xAngle",
"",
min = 0,
max = 90,
step = 10,
value = 60,
width = 250
),
br()
),
column(
12,
HTML("<strong>Zooming factor (α) for dots on
profile</strong>:<br>"),
sliderInput(
"dotZoom", "",
min = -1,
max = 3,
step = 0.1,
value = 0,
width = 250
),
HTML("<em>dot size = (1+α)*defaultSize<br>defaultSize
=[0:5]</em>"),
uiOutput("dotSizeInfo"),
br()
),
br(),
hr(),
bsButton("resetMainConfig", "Reset", style = "danger"),
bsButton("applyMainConfig", "Done", style = "warning")
),
# * popup for setting Customized plot configurations -------------------
bsModal(
"selectedPlotConfigBs",
"Plot appearance configuration",
"selectedPlotConfig",
size = "small",
column(
6,
createTextSize("xSizeSelect", "X-axis label size (px)", 8, 100)
),
column(
6,
createTextSize("ySizeSelect", "Y-axis label size (px)", 8, 100)
),
column(
6,
createTextSize("legendSizeSelect", "Legend label size (px)",
8, 150)
),
column(
6,
selectInput(
"selectedLegend", label = "Legend position:",
choices = list("Right" = "right",
"Left" = "left",
"Top" = "top",
"Bottom" = "bottom",
"Hide" = "none"),
selected = "right",
width = 150
)
),
column(
12,
HTML("<strong>Angle for x-axis label</strong>:<br>"),
sliderInput(
"xAngleSelect", "",
min = 0,
max = 90,
step = 10,
value = 60,
width = 250
),
br()
),
column(
12,
HTML("<strong>Zooming factor (α) for dots on
profile</strong>:<br>"),
sliderInput(
"dotZoomSelect", "",
min = -1,
max = 3,
step = 0.1,
value = 0,
width = 250
),
HTML("<em>dot size = (1+α)*defaultSize<br>
defaultSize=[0:5]</em>"),
uiOutput("dotSizeInfoSelect"),
br()
),
br(),
hr(),
bsButton("resetSelectedConfig", "Reset", style = "danger"),
bsButton("applySelectedConfig", "Done", style = "warning")
),
# POINT INFO BOX =======================================================
conditionalPanel(
condition =
"input.tabs=='Main profile' ||
input.tabs=='Customized profile'",
absolutePanel(
bottom = 5, left = 30,
fixed = TRUE,
draggable = TRUE,
h5("Point's info:"),
verbatimTextOutput("pointInfo"),
conditionalPanel(
condition = "output.pointInfoStatus == 0",
bsButton(
"detailedBtn",
"Detailed plot",
style = "success",
disabled = FALSE
)
),
style = "opacity: 0.80"
)
)
)
)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.