R/change-wallpaper.R

In clairbarnes/CB.Misc: What the Package Does (One Line, Title Case)

#' Change desktop wallpaper
#'
#' @export
#'
change.wallpaper <- function() {
    fnm <- system("gsettings get org.gnome.desktop.background picture-uri", intern = T)
    fnm <- gsub("'", "", gsub("file:///home/clair/Pictures/wallpapers/", "", fnm))
    fl <- list.files("/home/clair/Pictures/wallpapers/")
    fl <- fl[-which(fl == fnm)]

    new.fnm <- sample(list.files("/home/clair/Pictures/wallpapers/"), 1)
    system(paste0("gsettings set org.gnome.desktop.background picture-uri file:///home/clair/Pictures/wallpapers/",
                  new.fnm))
}