rename taskcheduler_runnow to taskscheduler_runnow and taskcheduler_s…

…top to taskscheduler_stop

DESCRIPTION

@@ -6,10 +6,10 @@ Description: Schedule R scripts/processes with the Windows task scheduler. This
 Authors@R: c(person("Jan", "Wijffels", role = c("aut", "cre", "cph"), email = "[email protected]"), person("BNOSAC", role = "cph"), person("Oliver", "Belmans", role = c("cph", "aut")))
 Maintainer: Jan Wijffels <[email protected]>
 License: AGPL-3
-Version: 1.3
+Version: 1.4
 URL: https://github.com/bnosac/taskscheduleR
 OS_type: windows
-Date: 2018-09-01
+Date: 2018-10-24
 Imports:
     data.table,
     tools,

NAMESPACE

@@ -6,6 +6,8 @@ export(taskschedulerAddin)
 export(taskscheduler_create)
 export(taskscheduler_delete)
 export(taskscheduler_ls)
+export(taskscheduler_runnow)
+export(taskscheduler_stop)
 importFrom(data.table,fread)
 importFrom(data.table,setDF)
 importFrom(tools,file_path_sans_ext)

R/taskscheduleR.R

@@ -203,21 +203,23 @@ taskscheduler_delete <- function(taskname){
 #' 
 #' @param taskname the name of the task to run. See the example.
 #' @return the system call to schtasks /Run 
-#' @export
+#' @export taskscheduler_runnow
+#' @export taskcheduler_runnow
+#' @aliases taskcheduler_runnow
 #' @examples 
 #' \dontrun{
 #' myscript <- system.file("extdata", "helloworld.R", package = "taskscheduleR")
 #' taskscheduler_create(taskname = "myfancyscript", rscript = myscript, 
 #'  schedule = "ONCE", starttime = format(Sys.time() + 10*60, "%H:%M"))
 #' 
-#' taskcheduler_runnow("myfancyscript")
+#' taskscheduler_runnow("myfancyscript")
 #' Sys.sleep(5)
-#' taskcheduler_stop("myfancyscript")
+#' taskscheduler_stop("myfancyscript")
 #' 
 #' 
 #' taskscheduler_delete(taskname = "myfancyscript")
 #' }
-taskcheduler_runnow <- function(taskname){
+taskscheduler_runnow <- function(taskname){
   cmd <- sprintf('schtasks /Run /TN %s', shQuote(taskname, type = "cmd"))
   system(cmd, intern = FALSE)
 }
@@ -228,23 +230,34 @@ taskcheduler_runnow <- function(taskname){
 #' 
 #' @param taskname the name of the task to stop. See the example.
 #' @return the system call to schtasks /End 
-#' @export
+#' @export taskscheduler_stop
+#' @export taskcheduler_stop
+#' @aliases taskcheduler_stop
 #' @examples 
 #' \dontrun{
 #' myscript <- system.file("extdata", "helloworld.R", package = "taskscheduleR")
 #' taskscheduler_create(taskname = "myfancyscript", rscript = myscript, 
 #'  schedule = "ONCE", starttime = format(Sys.time() + 10*60, "%H:%M"))
 #' 
-#' taskcheduler_runnow("myfancyscript")
+#' taskscheduler_runnow("myfancyscript")
 #' Sys.sleep(5)
-#' taskcheduler_stop("myfancyscript")
+#' taskscheduler_stop("myfancyscript")
 #' 
 #' 
 #' taskscheduler_delete(taskname = "myfancyscript")
 #' }
-taskcheduler_stop <- function(taskname){
+taskscheduler_stop <- function(taskname){
   cmd <- sprintf('schtasks /End /TN %s', shQuote(taskname, type = "cmd"))
   system(cmd, intern = FALSE)
 }
 
 
+taskcheduler_stop <- function(taskname){
+  .Deprecated("taskscheduler_stop", msg = "Use taskscheduler_stop instead of taskcheduler_stop")
+  taskscheduler_stop(taskname)
+} 
+
+taskcheduler_runnow <- function(taskname){
+  .Deprecated("taskscheduler_stop", msg = "Use taskscheduler_runnow instead of taskcheduler_runnow")
+  taskscheduler_runnow(taskname)
+}

inst/NEWS

@@ -1,6 +1,9 @@
 Package: taskscheduleR
 ================
 
+Version: 1.4 [2018-10-24]
+- Rename taskcheduler_stop to taskscheduler_stop and taskcheduler_runnow to taskscheduler_runnow
+
 Version: 1.3 [2018-09-11]
 - Change codepage to UTF-8 (using chcp 65001) in taskscheduler_ls