Htmlwidget

.gitignore

@@ -1,19 +1,27 @@
-*.(R|r)proj.user
-*.(R|r)history
-*.(R|r)Data
-*.(R|r)proj
-*.(R|r)buildignore
-.(R|r)proj.user
+*.Rproj.user
+*.rproj.user
+*.Rhistory
+*.rhistory
+.Rhistory
+.rhistory
+*.RData
+*.rdata
+*.Rproj
+*.rproj
+*.Rbuildignore
+*.rbuildignore
+.Rproj.user
+.rproj.user
 *~
 *.gexf
 *.html
 *.dll
 *.rds
 *.o
 
-*.(R|r)html
+*.Rhtml
+*.rhtml
 *.pdf
-.Rproj.user
 inst/doc
 docs/
 

DESCRIPTION

@@ -21,7 +21,8 @@ Imports:
     igraph,
     grDevices,
     utils,
-    servr
+    servr,
+    htmlwidgets
 License: MIT + file LICENSE
 LazyLoad: yes
 RoxygenNote: 7.3.1

NAMESPACE

@@ -14,13 +14,20 @@ export(edge.list)
 export(gexf)
 export(gexf.to.igraph)
 export(gexf_js_config)
+export(gexfjs)
+export(gexfjsOutput)
+export(renderGexfjs)
 export(igraph.to.gexf)
 export(new.gexf.graph)
 export(read.gexf)
+export(renderTest1)
 export(rm.gexf.edge)
 export(rm.gexf.node)
 export(switch.edges)
+export(test1)
+export(test1Output)
 export(write.gexf)
+import(htmlwidgets)
 importFrom(XML,addChildren)
 importFrom(XML,asXMLNode)
 importFrom(XML,newXMLDoc)

R/plot.R

@@ -223,3 +223,79 @@ plot.gexf <- function(
     do.call(servr::httd, c(list(dir = dir), httd.args))
 
 }
+
+#' @import htmlwidgets
+#' @export
+gexfjs <- function(
+  gexf   = "lib/gexf-1/lesmiserables.gexf" , # This is the onlyone that is working... for now
+  width  = NULL,
+  height = NULL
+  ) {
+
+  # read the gexf file
+  data <- paste(tryCatch(readLines(gexf), error = function(e) "e"), collapse="\n")
+
+  # # create a list that contains the settings
+  # settings <- list(
+  #   drawEdges = drawEdges,
+  #   drawNodes = drawNodes
+  # )
+
+  # pass the data and settings using 'x'
+  x <- list(
+    path = gexf,
+    data = data#,
+    # settings = settings
+  )
+
+  # create the widget
+  htmlwidgets::createWidget(
+    "gexfjs", x, width = width, height = height, package="rgexf")
+
+}
+
+
+#' @export
+gexfjsOutput <- function(outputId, width = "100%", height = "400px") {
+  htmlwidgets::shinyWidgetOutput(outputId, "gexfjs", width, height, package = "rgexf")
+}
+#' @export
+renderGexfjs <- function(expr, env = parent.frame(), quoted = FALSE) {
+  if (!quoted) { expr <- substitute(expr) } # force quoted
+  htmlwidgets::shinyRenderWidget(expr, gexfjsOutput, env, quoted = TRUE)
+}
+
+#' @import htmlwidgets
+#' @export
+test1 <- function(width=NULL, height=NULL) {
+
+  # read the gexf file
+  # data <- paste(readLines(gexf), collapse="\n")
+
+  # # create a list that contains the settings
+  # settings <- list(
+  #   drawEdges = drawEdges,
+  #   drawNodes = drawNodes
+  # )
+
+  # pass the data and settings using 'x'
+  x <- list(
+    data = NULL #,
+    # settings = settings
+  )
+
+  # create the widget
+  htmlwidgets::createWidget("test1", x, width = width, height = height, package="rgexf")
+
+}
+
+
+#' @export
+test1Output <- function(outputId, width = "100%", height = "400px") {
+  htmlwidgets::shinyWidgetOutput(outputId, "test1", width, height, package = "rgexf")
+}
+#' @export
+renderTest1 <- function(expr, env = parent.frame(), quoted = FALSE) {
+  if (!quoted) { expr <- substitute(expr) } # force quoted
+  htmlwidgets::shinyRenderWidget(expr, test1Output, env, quoted = TRUE)
+}

inst/htmlwidgets/gexfjs.js

@@ -0,0 +1,40 @@
+HTMLWidgets.widget({
+
+  name: "gexfjs",
+
+  type: "output",
+
+  factory: function(el, width, height) {
+
+    // create our sigma object and bind it to the element
+    // The GexFJS object is created before hand.
+    // var gf = new GexfJS(el.id);
+
+    return {
+      renderValue: function(x) {
+
+        // parse gexf data
+        var parser = new DOMParser();
+        var data = parser.parseFromString(x.data, "application/xml");
+
+        // Setting parameters
+        GexfJS.setParams({graphFile: x.path});
+
+        setGexfDoc(el.id, width, height);
+      },
+
+      resize: function(width, height) {
+
+        // forward resize on to sigma renderers
+        // for (var name in gf.renderers)
+           // gf.renderers[name].resize(width, height);  
+      },
+
+      // Make the sigma object available as a property on the widget
+      // instance we're returning from factory(). This is generally a
+      // good idea for extensibility--it helps users of this widget
+      // interact directly with sigma, if needed.
+      s: GexfJS
+    };
+  }
+});

inst/htmlwidgets/gexfjs.yaml

@@ -0,0 +1,14 @@
+dependencies:
+  - name: gexf
+    version: 1.0
+    src: htmlwidgets/lib/gexfjs
+    stylesheet:
+      - styles/gexfjs.css
+      - styles/jquery-ui-1.10.3.custom.min.css
+    script:
+      - setup.js
+      - js/jquery-2.0.2.min.js
+      - js/jquery.mousewheel.min.js
+      - js/jquery-ui-1.10.3.custom.min.js
+      - js/gexfjs.js
+      - config.js

inst/htmlwidgets/lib/gexfjs/.project

@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>gexf-js</name>
+	<comment></comment>
+	<projects>
+	</projects>
+	<buildSpec>
+		<buildCommand>
+			<name>com.aptana.ide.core.unifiedBuilder</name>
+			<arguments>
+			</arguments>
+		</buildCommand>
+	</buildSpec>
+	<natures>
+		<nature>com.aptana.projects.webnature</nature>
+	</natures>
+</projectDescription>

inst/htmlwidgets/lib/gexfjs/config.js

@@ -0,0 +1,81 @@
+/*** USE THIS FILE TO SET OPTIONS ***/
+
+GexfJS.setParams({
+    graphFile : "lib/gexf-1/lesmiserables.gexf",
+        /*
+            The GEXF file to show ! -- can be overriden by adding
+            a hash to the document location, e.g. index.html#celegans.gexf
+            GEXF files can now be replaced by pre-processed JSON files (use gexf2json.py)
+            for faster load time
+        */
+	showEdges : true,
+        /*
+            Default state of the "show edges" button. Set to null to disable button.
+        */
+    useLens : false,
+        /*
+            Default state of the "use lens" button. Set to null to disable button.
+        */
+    zoomLevel : 0,
+        /*
+            Default zoom level. At zoom = 0, the graph should fill a 800x700px zone
+         */
+    curvedEdges : true,
+        /*
+            False for curved edges, true for straight edges
+            this setting can't be changed from the User Interface
+        */
+    edgeWidthFactor : 1,
+        /*
+            Change this parameter for wider or narrower edges
+            this setting can't be changed from the User Interface
+        */
+    minEdgeWidth : 1,
+    maxEdgeWidth : 50,
+    textDisplayThreshold: 9,
+    nodeSizeFactor : 1,
+        /*
+            Change this parameter for smaller or larger nodes
+           this setting can't be changed from the User Interface
+        */
+    replaceUrls : true,
+        /*
+            Enable the replacement of Urls by Hyperlinks
+            this setting can't be changed from the User Interface
+        */
+    showEdgeWeight : true,
+        /*
+            Show the weight of edges in the list
+            this setting can't be changed from the User Interface
+        */
+    showEdgeLabel : true,
+    sortNodeAttributes: true,
+        /*
+            Alphabetically sort node attributes
+         */
+    showId : true,
+        /*
+            Show the id of the node in the list
+            this setting can't be changed from the User Interface
+        */
+    showEdgeArrow : true,
+        /*
+            Show the edge arrows when the edge is directed
+            this setting can't be changed from the User Interface
+        */
+    language: false,
+        /*
+            Set to an ISO language code to switch the interface to that language.
+            Available languages are:
+            - German [de]
+            - English [en]
+            - French [fr]
+            - Spanish [es]
+            - Italian [it]
+            - Finnish [fi]
+            - Turkish [tr]
+            - Greek [el]
+            - Dutch [nl]
+            If set to false, the language will be that of the user's browser.
+        */
+});