R/tmux.r

In paulklemm/rvisidata: Brings A Swiss Army Chainsaw for Data to R

#' Get visidata command depedning on the TMUX settings
#' @return visidata command as string
get_vd_cmd <- function() {
  tmux_cmd <- getOption("rvisidata.tmux")

  if (Sys.getenv("TMUX", unset = "TMUX_IS_UNSET") == "TMUX_IS_UNSET")
    return("vd")

  # Check for null before checking value
  # Null input clobbers logical returns (returns 0 length)
  # Default to having tmux enabled
  if (is.null(tmux_cmd))
    return(system.file("tmux_pane.sh", package = "rvisidata"))

  # If explicitly set to false, disable tmux
  if (tmux_cmd == FALSE)
    return("vd")

  # Users can choose their own script
  return(tmux_cmd)
}