CRAN 2.0.5

Author: Benoit Thieurmel

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: visNetwork
 Title: Network Visualization using 'vis.js' Library
 Version: 2.0.5
-Date: 2018-07-31
+Date: 2018-12-05
 Authors@R: c(
     person(family = "Almende B.V.", role = c("aut", "cph"),
        comment = "vis.js library in htmlwidgets/lib, http://visjs.org, http://www.almende.com/home"),

NEWS

@@ -8,7 +8,7 @@ visNetwork 2.0.5
   * Fix passing icon using visGroup and proxy
   * Fix passing margin to nodes
   * Fix bug passing character to visTree
-  * Fix legend using only one group
+  * #290 : Fix legend using only one group
 
 visNetwork 2.0.4
 --------------------------------------------------------------------------------

R/visTreeModule.R

@@ -1567,15 +1567,15 @@ visTreeModuleUI <- function(id, rpartParams = TRUE, visTreeParams = TRUE, quitBu
                                        shiny::column(5,
                                                      shiny::selectInput(ns("x"), "X :", NULL, multiple = TRUE, selected = NULL, width = "100%")
                                        ),
+                                       shiny::column(2,
+                                                     shiny::numericInput(ns("minsplit"), "Minsplit : ", value = 20, min = 2)
+                                       ),
                                        shiny::column(2,
                                                      shiny::sliderInput(ns("complexity"), "Complexity (cp) :",
                                                                         min = 0, max = 1, value = 0.005, step = 0.005)
                                        ),
                                        shiny::column(1,
                                                      shiny::br(), shiny::br(), shiny::actionButton(ns("set_cp"), "Set cp slider")
-                                       ),
-                                       shiny::column(2,
-                                                     shiny::numericInput(ns("minsplit"), "Minsplit : ", value = 20, min = 2)
                                        )
 
                             )

inst/tests/shiny_collapsed/app.R

@@ -1,69 +1,32 @@
-#
-# This is a Shiny web application. You can run the application by clicking
-# the 'Run App' button above.
-#
-# Find out more about building applications with Shiny here:
-#
-#    http://shiny.rstudio.com/
-#
-
 library(shiny)
 library(visNetwork)
 
-# Define UI for application that draws a histogram
 ui <- shinyUI(fluidPage(
-  actionButton("goCol", "Collapsed !"),
-  actionButton("goUC", "uncollapse!"),
-  actionButton("goRm", "remove event!"),
-  actionButton("goAdd", "add event!"),
-  fluidRow(column(4, div(id = "conf")), 
-           column(8,   visNetworkOutput("distPlot")))
-
-      
+  visNetworkOutput("net")
 ))
 
-# Define server logic required to draw a histogram
 server <- shinyServer(function(input, output) {
-   
-   output$distPlot <- renderVisNetwork({
-     set.seed(125)
-     nodes <- data.frame(id = 1:15, label = paste("Label", 1:15),
-                         group = sample(LETTERS[1:3], 15, replace = TRUE))
-     
-     edges <- data.frame(from = trunc(runif(15)*(15-1))+1,
-                         to = trunc(runif(15)*(15-1))+1)
-
-     visNetwork(nodes, edges) %>% visOptions(highlightNearest = T, collapse = T) %>% 
-       visEdges(arrows = "to") %>% visConfigure(container = "conf")
-     
-   })
-   
-   observe({
-     if(input$goCol > 0){
-       visNetworkProxy("distPlot") %>% 
-         visCollapse(nodes = c(10,3), clusterOptions = list( shape ="square", label = "and so ?"), 
-                     labelSuffix = "Cool")
-     }
-   })
-   
-   observe({
-     if(input$goUC > 0){
-       visNetworkProxy("distPlot") %>% visUncollapse(keepCoord = TRUE)
-     }
-   })
-   
-   observe({
-     if(input$goRm > 0){
-       visNetworkProxy("distPlot") %>% visEvents(type = "off", doubleClick = "networkOpenCluster")
-     }
-   })
-   
-   observe({
-     if(input$goAdd > 0){
-       visNetworkProxy("distPlot") %>% visEvents(type = "on", doubleClick = "networkOpenCluster")
-     }
-   })
-   
+  
+  output$net <- renderVisNetwork({
+    set.seed(125)
+    nodes <- data.frame(id = 1:15, label = paste("Label", 1:15), title = paste("Label", 1:15),
+                        group = sample(LETTERS[1:3], 15, replace = TRUE))
+    
+    edges <- data.frame(from = trunc(runif(15)*(15-1))+1,
+                        to = trunc(runif(15)*(15-1))+1)
+    
+    # using your own css
+    # visNetwork(nodes, edges) %>% 
+    #   visInteraction(tooltipStyle = "position: fixed;visibility:hidden;text-decoration: underline;")
+    
+    # default css + text-decoration
+    visNetwork(nodes, edges) %>% 
+      visInteraction(tooltipStyle = "position: fixed;visibility:hidden;padding: 5px;font-family: verdana;font-size:14px;
+                     font-color:#000000;background-color: #f5f4ed;-moz-border-radius: 3px;-webkit-border-radius: 3px;
+                     border-radius: 3px;border: 1px solid #808074;box-shadow: 3px 3px 10px rgba(0, 0, 0, 0.2);
+                     max-width:400px;word-break: break-all;text-decoration: underline;")
+    
+  })
 })
 
 # Run the application