R/check_local_version.R

check_local_version <- function(guide_path) {

  log <- shell(
    paste0("cd ",guide_path," & guide"),
    intern=TRUE
  )

  ver <- strsplit(trimws(log[2]), " ", fixed=TRUE)[[1]][2]

  return(ver)
}
jhilaire/guidr documentation built on May 7, 2019, 10:47 p.m.