Create palRoster.RHEADmaster

A teleworking roster for the linux terminal calender app, 'pal'		

Written by SJP 	Sat 18 May 2013 09:50:32 EST 

This R script writes a pal file that shows which weeks will be WAFTO (Working Away From The Office).

It assumes weekly blocks of time.

1 files changed, 70 insertions, 0 deletions

diff --git a/palRoster.R b/palRoster.R
new file mode 100644
index 0000000..125a953
--- /dev/null
+++ b/palRoster.R
@@ -0,0 +1,70 @@
+# palRoster.R
+#   Written by SJP 	Sat 18 May 2013 09:50:32 EST 
+#	A teleworking roster for the linux terminal calender app, 'pal'		
+#
+# This R script writes a pal file that shows which weeks will be WAFTO (Working Away From The Office).
+# It assumes weekly blocks of time.
+#
+#	pal: 
+#	R: 	sudo apt-get install r-base
+#		(no R experience required; just copy this while file and paste it into the R command prompt)
+#		No R output is produced, cd to ~/.pal to see if your .pal file was created.
+#
+# Settings for this script:
+# 	Alter the values of 'wafto' and 'office' in the 'weeks' list to suit your own circumstances.
+# 	Edit the date argument in 'startMon'. This is not error checked. i.e. make sure it is a 
+#	Monday if your week starts on a Monday.
+#
+# Usage in pal:
+#	add 'telework.pal' to your pal.conf file (if you used the default palFile value in he settings area below).
+#	or create a new telework.conf file with these settings:
+#		file telework.pal
+#		# show how fixed dates like summer hols fit in with roster
+#		file my_special_dates.pal
+# 		week_start_monday
+#		show_weeknum
+#		no_columns
+#		# suppress listing of events below the calendar.
+#		default_range 0
+#	(see pal.conf for assistance with these settings)
+#	Call pal like this (if you want to see the next 50 weeks):
+#
+#		pal -f telework.conf -c 50
+#
+#	Or send it to a text file for your colleagues/bosses' reference:
+#
+#		pal -f telework.conf -c 50 --nocolor > wafto.txt
+
+#====== Settings =================
+palDir <- '~/.pal/'			# Default location. Alter if necesaary.
+palFile <- 'telework.pal'
+weeks <- list(wafto = 3, office = 3)	# number of weeks WAFTO and at office [change the numbers if req.]
+#					#	But DON'T change the order of wafto/office
+forecast <- 52				# go this many weeks into the future
+startMon <- as.Date('2013-06-03')	# Start the calendar at this date
+#====== End of Settings ==========
+weekCount <- 0				# counter (don't change this)
+
+# yyyymmdd date format
+yyyymmdd <- function(thisDate = Sys.Date()){
+  return(format(thisDate, '%Y%m%d'))
+}
+
+sink()	# insurance against erroneously opening files; don't worry about the R warning.
+sink(paste(palDir, palFile, sep=''))
+
+cat("#\tWorking Away From The Office roster calendar\n#\n")
+cat(paste('#', date(), 'by SJP\n#\n', sep='\t'))
+cat('#\tCreated by palRoster.R\n#\n\n')
+cat('() WAFTO\n\n')
+
+while (weekCount <= forecast){
+  for( i in 1:sum(unlist(weeks))){
+    if (i <= weeks$wafto){
+      cat(paste('DAILY:', yyyymmdd(startMon + weekCount*7), ':', yyyymmdd(startMon + weekCount*7+4), '\tWAFTO\n', sep=''))
+    }
+  weekCount <- weekCount + 1
+  }
+}
+#  If you start getting errors and/or no response at the R prompt, use 'sink()' to force sink.number() back to 0.
+sink()