R/route.R

In notsynonymous/SWA: A package to assist in devloping SEM metrics based on driver data

#' Adresses in route
#'
#' Route stops
#' Takes a workbook and extracts the route stops
#' 
#' This function may be ammended with fl
#'
#' @name route
#'
#' @importFrom gtools mixedsort
#'
#' @param stationName character vector of length 1 for the name of the station
#'
#' @examples
#' \dontrun{
#' route("DPS1")
#' }
#' @export
#' @md

route <- function(stationName){
	
	setwd("C:/Users/sdeclerk/Documents/R/WD/RTW/")
	
	stnFile <- list.files(pattern=c(stationName))[1]
	
	tmp_obj <- NULL
	address <- NULL
	
	tmp_obj <- read_excel_allsheets(stnFile)
	temp_length <- length(names(tmp_obj))
	j <- NULL
	
	assign("dat", tmp_obj)
	
	for(j in 1:temp_length){
	
		address <- NULL
		tmp_obj2 <- tmp_obj[j]
		assign(paste0("man", j), as.data.frame(tmp_obj2))
		address <- tmp_obj[[j]][,6]
		assign(paste0("SWA", j), address)
		rm(tmp_obj2, address)
		
	}
	
	rm(tmp_obj, j, temp_length)
	
	setwd("C:/Users/sdeclerk/Documents/R/Data")
	
	routes <- ls(pattern="SWA")
	routes <- mixedsort(routes)
	sink(paste0(stationName, ".txt"))
	
	cat(stationName)
	cat("\n")
	cat("-----------------------------------------------------", sep="\n")
	
	for(i in 1:length(routes)){
	
		get(routes[i]) -> tmp
		tmptn <- names(table(tmp))
		tmptn <- tmptn[!tmptn %in% c("Actual Customer Address", "DPS1", "DLA7", "DXH6")]
		cat(paste0("SWA", i))
		cat("\n")
		cat(tmptn, sep="\n")
		cat("\n")
		rm(tmp, tmptn)
	
	}
	
	sink()
	
	#for dev {
	
		setwd("C:/Users/sdeclerk/Documents/R/pkg/SWA")
		
	# {
	#		the idea behind the fl traverse function was to have a very simple function that
	#			caches folder history. There is likely a way to implement this a generic.
	#			WORK SMARTER NOT HARDER. OR BOTH IF YOURE A MANIAC!
	
}