1datatitle <- reactive({
2  set.seed(2)
3  nodes <- data.frame(id = 1:3)
4  edges <- data.frame(from = c(1,2), to = c(1,3))
5
6  list(nodes = nodes, edges = edges)
7})
8
9output$network_proxy_set_title <- renderVisNetwork({
10  visNetwork(datatitle()$nodes, datatitle()$edges) %>% visExport()
11})
12
13observe({
14  visNetworkProxy("network_proxy_set_title") %>%
15    visSetTitle(main = list(text = input$input_main, hidden = input$hidden_main),
16                submain = list(text = input$input_submain, hidden = input$hidden_submain),
17                footer =list(text = input$input_footer, hidden = input$hidden_footer))
18})
19
20output$code_proxy_set_title <- renderText({
21  '
22  observe({
23    visNetworkProxy("network_proxy_set_title") %>%
24    visSetTitle(main = list(text = input$input_main, hidden = input$hidden_main),
25    submain = list(text = input$input_submain, hidden = input$hidden_submain),
26    footer =list(text = input$input_footer, hidden = input$hidden_footer))
27  })
28'
29})