R/misc.R

In luciorq/luciolib:

#' Open personal tutorials on a Web Browser
#' @export
open_tutorials <- function() {
  # TODO move tutorials to Misc?
  utils::browseURL("https://github.com/luciorq/tutorials")
}
#' Open editable personal TODO list
#' @export
open_todo <- function() {
  file_path <- fs::path_expand("~/projects/miscellaneous/TODO.md")
  rstudioapi::navigateToFile(file_path)
}
#' Open Personal Function Library to edit
#' @export
open_personal <- function() {
  file_path <- fs::path_expand("~/projects/luciolib/R/misc.R")
  rstudioapi::navigateToFile(file_path)
}
#' Build and Install updated version of Personal Library
#' @export
build_personal <- function() {
  # TODO replace that in favor of update_luciolib
  pkg_path <- fs::path_expand("~/projects/luciolib")
  devtools::build(pkg_path)
  devtools::install(pkg_path)
}