## -----------------------------------------------------------------------------
 # Good
fun <- function(param1,
                param2,
                param_with_dir_for_st_important = get_st_important_dir()) {
  # Code is indented by two spaces.
  ...
}
 # Bad
fun <- function(param1, param2, param_with_dir_for_st_important = file.path(system.file(paste(param1, "SE", "rds", sep = "."), package = "important_package"))) {
  ...
}

## -----------------------------------------------------------------------------
  # Good.
  foo <- function() {
    # Do stuff.
    x
  }
  # Bad.
  foo <- function() {
    # Do stuff.
    return(x)
  }

## -----------------------------------------------------------------------------
if (TRUE) {
  NULL
} else {
  NULL
}

## ----eval=FALSE---------------------------------------------------------------
#  what_is_going_on <- if (is_check()) {
#    flog <- "it's getting hot..."
#  } else if (is_mate()) {
#    flog <- "Oh noooo..."
#  } else {
#    flog <- "there is a hope..."
#  }

## ----eval=FALSE---------------------------------------------------------------
#  # Good.
#  idx <- foo()
#  if (length(idx) == 1) {
#    f <- c(f[idx], f[-idx])
#  }
#  # Bad.
#  if (length(foo()) == 1) {
#    f <- c(f[foo()], f[foo()])
#  }

## -----------------------------------------------------------------------------
#' @note To learn more about functions start with `help(package = "{pkgname}")` 
#' @keywords internal
#' @return package help page
"_PACKAGE"

## ----sessionInfo--------------------------------------------------------------
sessionInfo()