inst/templates/bitbar.R

In hrbrmstr/bitbar: Craft macOS Menu Bar Applications with Rscript

#!/Library/Frameworks/R.framework/Resources/bin/Rscript
#
# <bitbar.title>{{{title}}}</bitbar.title>
# <bitbar.version>{{{version}}}</bitbar.version>
# <bitbar.author>{{{author}}}</bitbar.author>
# <bitbar.author.github>{{{github_user}}}</bitbar.author.github>
# <bitbar.desc>{{{description}}}</bitbar.desc>
# <bitbar.dependencies>{{{dependencies}}}</bitbar.dependencies>
# <bitbar.image>{{{image_url}}}</bitbar.image>
# <bitbar.abouturl>{{{about_url}}}</bitbar.abouturl>
#
# REMINDER: You can have the script auto-refresh by changing the filename
#
# {name}.{time}.{ext}
# name - The name of the file
# time - The refresh rate (see below)
# ext - The file extension
#
# For example:
# `date.1m.sh` would refresh every minute.
#
# 10s - ten seconds
# 1m - one minute
# 2h - two hours
# 1d - a day

suppressPackageStartupMessages({
  library(magrittr, quietly = TRUE, verbose = FALSE, warn.conflicts = FALSE)
  library(clipr, quietly = TRUE, verbose = FALSE, warn.conflicts = FALSE)
  library(sys, quietly = TRUE, verbose = FALSE, warn.conflicts = FALSE)
  library(bitbar, quietly = TRUE, verbose = FALSE, warn.conflicts = FALSE)
  # other library() calls here
})

this_script <- sub("--file=", "", grep("--file=", commandArgs(trailingOnly = FALSE), value=TRUE)) # assumes no spaces
args <- commandArgs(trailingOnly = TRUE) # holds param1, param2, etc.; change to TRUE if you want path to script

if (length(args) > 0) {

  # handle self-invocation vs display menu things

}

add_entry("{{{title}}}") # this will be the menubar title

add_separator()

add_entry(":mushroom: color!", color="#ff0000") # color!

add_entry("Open R Frameworks directory…", bash="/usr/bin/open", param1="file:///Library/Frameworks/R.framework/Versions/Current", terminal=FALSE)

add_entry("Visit R-project…", href="https://r-project.org/") # clickable URL
add_entry("Visit R for macOS…", href="https://mac.r-project.org/") # clickable URL

add_separator()

add_entry("Somewhere") # this will be the submenu entry point
add_entry("Beyond the sea", type = "submenu")
add_entry("Sea", type = "submenu") # this will be a submenu of the submenu
add_entry("Under the Sea", type = "submenu", level = 2)

add_separator()

add_entry("What's on your clipboard?")
add_entry(read_clip(), font="Monaco")

# Keep at end of script ---------------------------------------------------

add_separator()

add_entry("Refresh", refresh=TRUE)