0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
visNetwork
/
shiny
/
src
/
ui
/
[
Home
]
File: proxy_options_ui.R
shiny::tabPanel( title = "Update options", fluidRow( column( width = 4, checkboxInput("highlightNearest", "highlight ?", FALSE), sliderInput("deg", "Degree :", min = 1, max = 10, value = 1), selectInput("algorithm", "highlight algoritm ", c("all", "hierarchical")), checkboxInput("hover", "highlight when hover ?", FALSE), sliderInput("opahigh", "Opacity highlight :", min = 0, max = 1, value = 0.5), hr(), checkboxInput("nodesIdSelection", "nodes Selection", FALSE), hr(), checkboxInput("selectedby", "Groups Selection", FALSE), checkboxInput("selectedbyHighlight", "Groups Selection highlight", FALSE), sliderInput("opasel", "Opacity selection :", min = 0, max = 1, value = 0.5), hr(), checkboxInput("collapse", "Enable collapse", FALSE), checkboxInput("fit_collapse", "Fit after collapse", FALSE), checkboxInput("reset_collapse", "Reset highlight after collapse", FALSE), checkboxInput("keep_coord", "keep coordinates ?", TRUE), textInput("labelSuffix", "label suffix on cluster ?", "(cluster)"), checkboxInput("open_collapse", "Enable open cluster", FALSE) ), column( width = 8, visNetworkOutput("network_proxy_options", height = "500px") ) ), verbatimTextOutput("code_proxy_options") )