R/is_r_project.r

In giupo/rutils: A bunch of utils

#' Checks if `path` contains a valid R project structure
#'
#' Checks if `path` contains:
#' - a DESCRIPTION file
#' - a NAMESPACE file
#' - an R directory
#'
#' @md
#' @param path path to check for an R project (defaults to `getwd()`)
#' @export

is_r_project <- function(path = getwd()) {
  file.exists(file.path(path, "DESCRIPTION")) &&
    file.exists(file.path(path, "NAMESPACE")) &&
    dir.exists(file.path(path, "R"))
}