--- output: rmarkdown::github_document editor_options: chunk_output_type: console --- ```{r pkg-knitr-opts, include=FALSE} hrbrpkghelpr::global_opts() ``` ```{r badges, results='asis', echo=FALSE, cache=FALSE} hrbrpkghelpr::stinking_badges() ``` ```{r description, results='asis', echo=FALSE, cache=FALSE} hrbrpkghelpr::yank_title_and_description() ``` ## NOTE - Uses `reticulate` so a working Python *3* implementation is needed. Consider setting `RETICULATE_PYTHON` to a valid, working Python 3 installation if this package is not working for you. ## What's Inside The Tin The following functions are implemented: ```{r ingredients, results='asis', echo=FALSE, cache=FALSE} hrbrpkghelpr::describe_ingredients() ``` ## Installation ```{r install-ex, results='asis', echo=FALSE, cache=FALSE} hrbrpkghelpr::install_block() ``` ## Usage ```{r use, message=FALSE, warning=FALSE, error=FALSE} library(mactheknife) # current verison packageVersion("mactheknife") ``` ### `mdls` info ```{r mdls} res <- mdls(list.files(here::here("R"), full.names = TRUE)) res dplyr::glimpse(res) ``` ### Kernel state vars ```{r ks} kernel_state() ``` ### `.DS_Store` example Using built-in data ```{r ds1} read_dsstore( path = system.file("extdat", "DS_Store.ctf", package = "mactheknife") ) ``` ### From a URL A URL I should not have let a `.DS_Store` file lying around in ```{r ds2} read_dsstore("https://rud.is/books/21-recipes/.DS_Store") ``` ### A Directory of`.DS_Store`s A larger example using my "~/projects" folder (use your own dir as an example). ```{r ds-dir, cache = FALSE} library(magrittr) list.files( path = "~/projects", pattern = "\\.DS_Store", all.files = TRUE, recursive = TRUE, full.names = TRUE ) %>% lapply(read_dsstore) -> x str(x) ``` ### "Software Update" History ```{r suh} software_update_history() ``` ### macOS Version Info (short) ```{r swv} sw_vers() ``` ### Applescript ```{r applescript} res <- applescript(' tell application "Music" set r_name to name of current track set r_artist to artist of current track end return "artist=" & r_artist & "\ntrack=" & r_name ') print(res) ``` ### App info ```{r app} check_sig("/Applications/RSwitch.app") %>% print(n=nrow(.)) check_notarization("/Applications/RSwitch.app") ``` ## mactheknife Metrics ```{r cloc, echo=FALSE} cloc::cloc_pkg_md() ``` ## Code of Conduct Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.