In ngfrey/d3BarGraph: Learning to Create D3 Bars in R

This is my attempt to make a bar graph using R and D3. I'm putting my work on GitHub to keep it simple

library(htmlwidgets)
library(roxygen2)
library(devtools)
library(jsonlite)
library(networkD3) #For examples and MisLinks and MisNodes data

A quick function to examine data:

lu<- function(x){length(unique(x))}

Get the data:

set.seed(123)
numz<- round(runif(15, min=3, max=20),0)
numz

Now, we'll set up the file scaffolding. I need to find out if running these after I have done work on the widget JavaScript code and R code will wipe out my work. I'll just run this onceInstead, only run the devtools::install() to rebuild the widget and launch it.

#create("d3BarGraph") #create the package skelton
#htmlwidgets::scaffoldWidget("d3BarGraph")

Now make the necessary edits to the .yaml file, pyramid.R file, and pyramid.js files.

I edited the yaml file, added the D3 library as a dependecy, and then told it to use the style.css as the stylesheet. I am not sure if this is correct, but I am going to give it a try.

The next steps are to build the package, as per Hilary Parker's guide...

getwd()


#If needed for testing:
setwd("/Users/Nathan/Dropbox/R Projects Personal/d3BarGraph")

document() #create the man folder, automatically generate the pyramid.Rd file

Now to install and run the package! Hopefully it works (Fingers crossed)

getwd()
setwd("..")
getwd()
install("d3BarGraph")

Let's load the library and make a go at it!

library(d3BarGraph)
d3BarGraph::d3BarGraph(numz, width = 300, height = 300) #somehow fails. How do I find out why/where?

For quickly rebuilding and attempting to launch:

setwd("/Users/Nathan/Dropbox/R Projects Personal/d3BarGraph")
document() #create the man folder, automatically generate the pyramid.Rd file
setwd("..")
install("d3BarGraph")
library(d3BarGraph)
d3BarGraph::d3BarGraph(numz, width = 300, height = 300) #somehow fails. not sure ATM...