R/ffmpeg_dir_function.R

In joshuakrobertson/R-Package_ReVuePro: ReVuePro: Enabling analysis of thermal images captured by FLIRs VuePro R

#' ReVuePro: ffmpeg_dir
#'
#' A function used to write a directory key to ffmpeg. 
#' @details The directory key written by this function is called upon by the following functions by defaults; vid2im, motion_sense, and motion_quant.
#' @param directory A path to ffmpeg.exe
#' @examples
#' source = "C:/ffmpeg.exe"
#' ffmpeg_dir(source)
#' @export

ffmpeg_dir = function(directory){
	dir_save = paste(.libPaths()[1], "/ffmpeg", sep = "")
	setwd(.libPaths()[1])

	dir.create("ffmpeg")
	setwd(dir_save)

	write(directory, "FFMPEG_DIRECTORY.txt")
}