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")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.