initial

.Rbuildignore

@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$

.gitignore

@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata

DESCRIPTION

@@ -0,0 +1,12 @@
+Package: VisualResume
+Type: Package
+Title: What the Package Does (Title Case)
+Version: 0.1.0
+License: GPL-2
+Author: Nathaniel D. Phillips
+Maintainer: Nathaniel D. Phillips <Nathaniel.D.Phillips.is@gmail.com>
+Description: Creates a visual resume
+Encoding: UTF-8
+LazyData: true
+RoxygenNote: 5.0.1
+Depends: yarrr, showtext, sysfonts

NAMESPACE

@@ -0,0 +1,25 @@
+# Generated by roxygen2: do not edit by hand
+
+export(Visual.Resume)
+importFrom(grDevices,col2rgb)
+importFrom(grDevices,gray)
+importFrom(grDevices,rgb)
+importFrom(graphics,abline)
+importFrom(graphics,arrows)
+importFrom(graphics,axis)
+importFrom(graphics,layout)
+importFrom(graphics,legend)
+importFrom(graphics,mtext)
+importFrom(graphics,par)
+importFrom(graphics,plot)
+importFrom(graphics,plot.new)
+importFrom(graphics,plot.window)
+importFrom(graphics,points)
+importFrom(graphics,rect)
+importFrom(graphics,segments)
+importFrom(graphics,text)
+importFrom(showtext,showtext.begin)
+importFrom(showtext,showtext.end)
+importFrom(sysfonts,font.add.google)
+importFrom(sysfonts,font.families.google)
+importFrom(yarrr,piratepal)

R/textoutline_function.R

@@ -0,0 +1,26 @@
+# text.outline
+# adds text with a white background - taken from Dirk Wulff www.dirkwulff.org
+text.outline <- function(x, y,
+                         labels = 'test',
+                         col = 'black',
+                         font = 1,
+                         bg = 'white',
+                         r = 0.02,
+                         h = 1,
+                         w = 1,
+                         cex = 1,
+                         adj = .5,
+                         pos = NULL,
+                         family){
+
+  # Draw background
+  is <- seq(0, 2 * pi, length = 72)
+  for(i in is){
+    xn = x + cos(i) * r * w
+    yn = y + sin(i) * r * h
+    text(xn, yn, labels = labels, col = bg, cex = cex, adj = adj, pos = pos, font = font, family = family)
+  }
+
+  # Foreground
+  text(x, y, labels = labels, col = col, cex = cex, adj = adj, pos = pos, font = font, family = family)
+}

VisualResume.Rproj

@@ -0,0 +1,20 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: knitr
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source