inst/shiny/src/ui/manip_ui.R

shiny::tabPanel(
  title = "Manipulation in shiny",
  fluidRow(
    column(
      width = 12,
      visNetworkOutput("network_manip",height = "600px"),
      fluidRow(
        column(
          width = 6,
          verbatimTextOutput("code_network_manip")
        ),
        column(
          width = 3,
          HTML("Using manipulation option, you can view current action in shiny
               with input$networkid_graphChange")
          ),
        column(
          width = 3,
          verbatimTextOutput('view_manip')
        )
      )
    )
  )
)

Try the visNetwork package in your browser

Any scripts or data that you put into this service are public.

visNetwork documentation built on Sept. 29, 2022, 5:07 p.m.