Made R package.

Author: Geoffrey Hannigan

DESCRIPTION

@@ -0,0 +1,14 @@
+Package: teamcolors
+Title: Sports Team Colors
+Description: Color palettes from popular sports teams.
+Date: 2017-02-01
+Version: 0.0.1
+Author: Geoffrey D Hannigan, PhD
+Maintainer: Geoffrey D Hannigan, PhD <ghannig@umich.edu>
+Depends:
+    R (>= 3.0)
+License: Unlicense
+LazyData: true
+URL: https://github.com/Microbiology/TeamColors
+BugReports: https://github.com/Microbiology/TeamColors/issues
+RoxygenNote: 6.0.0

NAMESPACE

@@ -0,0 +1,3 @@
+# Generated by roxygen2: do not edit by hand
+
+export(team_colors)

R/colorpal.R

@@ -0,0 +1,20 @@
+load("./teamcolors.Rdata")
+
+#' @title Sports team color schemes.
+#' 
+#' @description These are color schemes from a variety of popular teams.
+#' 
+#' @param name Name of the team to use.
+#' @return A vector of colors (hex format)
+#' @export
+#' @keywords colors sports
+#' @examples
+#' team_colors("Winnipeg Jets")
+team_colors <- function(name) {
+	palt <- teamlist[[name]]
+	if (is.null(palt))
+    	stop("Team colors not found!")
+
+    # Return the color scheme as a vector
+    return(as.vector(palt))
+}

R/convertjson.R

@@ -0,0 +1,14 @@
+library("rjson")
+
+json_file <- "https://raw.githubusercontent.com/jimniels/teamcolors/c700faa806aaa290cfd31a98225df306fda6cf14/static/data/teams.json"
+json_data <- fromJSON(file=json_file)
+
+teamlist <- list()
+
+for( i in json_data ){
+	tname <- i$name
+	tcol <- i$colors$hex
+	teamlist[[ tname ]] <- tcol
+}
+
+save(teamlist, file = "./teamcolors.Rdata")

convertjson.R

@@ -0,0 +1,14 @@
+library("rjson")
+
+json_file <- "https://raw.githubusercontent.com/jimniels/teamcolors/c700faa806aaa290cfd31a98225df306fda6cf14/static/data/teams.json"
+json_data <- fromJSON(file=json_file)
+
+teamlist <- list()
+
+for( i in json_data ){
+	tname <- i$name
+	tcol <- i$colors$hex
+	teamlist[[ tname ]] <- tcol
+}
+
+save(teamlist, file = "../data/teamcolors.Rdata")