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})