R/getExampleTaskID.R

In ZjGaothu/OpenAnnotateR:

#' @title getExampleTaskID
#' @description Get an example task id
#' @return task_id
#' @export getExampleTaskID
#' @examples task_id <- getExampleTaskID()
getExampleTaskID <- function()
{
  task_id <- '2020121013091517'
  print(sprintf('Example task id: %s' ,task_id))
  return(task_id)
}