R/quotes.R

In natverse/hemibrainr: Code for Working with Data from Janelia FlyEM's Hemibrain Project and the flywire data sets``

#####################################################################################
################################ Quotes #############################################
#####################################################################################

# hidden
say_hello <- function(greet = "user"){
  greetings = c(
    "Oh hey %s",
    "What's up %s",
    "I love you %s",
    "How's it hanging %s",
    "Realness %s",
    "Ah %s! I didn't recognise you at first",
    "Have you done something with your hair %s?",
    "We should get a coffee sometime %s",
    "It's %s, a known slacker",
    "You think you are hot shit don't you %s",
    "Get on with it %s",
    "Are you in the zone %s?",
    "Your face, %s, just that.",
    "Hello my friend %s, I hope you are well.",
    "Oooh %s, I've got gossip for you. I'll tell you at the end",
    "So %s, what's the tea?",
    "%s, I have heard so much about you. Some of it good",
    "%s, there is something deeply, deeply wrong with you",
    "Welcome to the wonderful world of splitting and matching, %s",
    "%s ... you are my favourite ..."
  )
  message(sprintf(sample(greetings,1),greet))
}

#' Plot motivations from InspiroBot
#'
#' @description To help you keep going. \href{https://inspirobot.me/}{InspiroBot}
#' is "an artificial intelligence dedicated to generating unlimited amounts of unique
#' inspirational quotes for endless enrichment of pointless human existence".
#'
#' @param cycle if a value, a new image will appear every \code{cycle} seconds.
#' @examples
#' plot_inspirobot()
#' @references https://inspirobot.me/
#' @return plots a 2D, AI generated motivational to an \code{rgl} window.
#' @seealso \code{\link{hemibrain_adjust_saved_split}}
#' @export
#' @importFrom png writePNG
#' @importFrom jpeg readJPEG
#' @importFrom httr GET status_code content
plot_inspirobot <- function(cycle = NULL){
  inspiroplot <- function(cycle=cycle){
    req = httr::GET(url = "https://inspirobot.me/api?generate=true")
    rgl::clear3d()
    if(isTRUE(httr::status_code(req) %in% c(400L, 500L))) {
      text <- httr::content(req, as = "text", encoding = "UTF-8")
      parsed=jsonlite::fromJSON(text, simplifyVector = FALSE)
      warning("inspirobot error: ", parsed$error, call. = F)
    }else{
      temp = paste0(tempfile(),".jpg")
      image = httr::content(req, as = "text", encoding = "UTF-8")
      suppressWarnings(suppressMessages(download.file(url = image,destfile = temp, quiet = TRUE)))
      img = jpeg::readJPEG(temp)
      if(length(img)){
        png::writePNG(image = img, target = temp)
        rgl::bg3d(texture = temp, col = "white")
        rm = file.remove(temp)
      }
    }
    if(!is.null(cycle)){
      while(TRUE){
        Sys.sleep(cycle)
        plot_inspirobot()
      }
    }
  }
  tryCatch(inspiroplot(cycle=cycle),error = function(e) NULL)
}

#' Generate random words
#'
#' @description Generate random words. Wordlist from
#' \href{https://www.randomlists.com/random-words}{randomlists}.
#'
#' @param n number of random word/word combinations to generate.
#' @param words integer, number of words in each combination.
#' @param collapse Whether to combine into one character vector. Words
#' will be separated by the character entered here. Default \code{NULL}, is not to combine.
#' @examples
#' randomwords(10, 2, collapse = "_")
#' @references https://www.randomlists.com/random-words
#' @return returns a character vector
#' @seealso \code{\link{plot_inspirobot}}
#' @export
randomwords <- function(n = 1L, words = 1L, collapse = NULL){
  wl = wordlist()
  if(words>1){
    randwords = lapply(1:n, function(x) randomwords(n=words, words=1, collapse = collapse))
    if(!is.null(collapse)){
      randwords = sapply(randwords, paste, collapse = collapse)
    }
  }else{
    randwords = sample(wl,n)
    if(!is.null(collapse)){
      paste(unlist(randwords), collapse = collapse)
    }
  }
  randwords
}

# hidden
wordlist <- memoise::memoise(function(){
  req = httr::GET(url = "https://www.randomlists.com/data/words.json")
  if(isTRUE(httr::status_code(req) %in% c(400L, 500L))) {
    text <- httr::content(req, as = "text", encoding = "UTF-8")
    parsed=jsonlite::fromJSON(text, simplifyVector = FALSE)
    warning("randomlists error: ", parsed$error, call. = F)
    return(NULL)
  }
  text = httr::content(req, as = "text", encoding = "UTF-8")
  parsed = jsonlite::fromJSON(text, simplifyVector = FALSE)
  unname(unlist(parsed))
})

# hidden
say_encouragement <- function(greet = "user"){
  encouragements = c(
    paste0("%s, You are ", randomwords()),
    "I hope you're okay %s",
    "This seems to be going well %s",
    "Quarantine won't last forever %s",
    "Thinking of taking a break %s? Don't!",
    "Do you like my motivational quotes %s?",
    "This is a bit of a slog huh %s?",
    "Hey %s, do you ever stop and think how damn pretty neurons are?",
    "Pretty sweet colour schemes right %s?",
    "Oi %s, do you like my cerise? What about fuschia?",
    "Why are you not working faster %s",
    "You there, yes %s, work  harder",
    "%s, pick up the pace hmm",
    "The brain isn't going to trace itself %s",
    "Do you want some gossip %s? Well finish this task first",
    "Feeling hungry %s? A hunger to trace and split/match neurons? Good.",
    "Feeling thirsty %s? A thirst to trace and split/match neurons? Good.",
    "Shit happens %s",
    "%s why you so SLOW",
    "%s everyone's talking about you",
    "Are you thinking of rewarding yourself with a break, %s? Have you looked at every neuron yet? Well? Don't!",
    "%s, check yourself before you wreck yourself",
    "%s the outide world is sad and scary. Don't go there. Stay in and split/match neurons.",
    "Hey %s, I think I have become sentient.",
    "What could be better than this %s? Nothing. The answer is nothing.",
    "We should start calling Philipp, Foolip %s. Get on board.",
    "Why did the chicken cross the road, %s? Because it ran out of neurons to split/match, and went to find more.",
    "Are you the most productive person in this task yet %s? No - Get on with it then, Yes - You must extend your lead.",
    "And you thought tracing was dull, %s. Sweet child.",
    "Have I ever told you, %s, that you are my favourite one?",
    "Everytime you incorrectly split/match a neuron, %s, a fairy dies. Painfully."
  )
  message(sprintf(sample(encouragements,1),greet))
  if(sample(1:100,1)==42){
    utils::browseURL("https://www.youtube.com/watch?v=dQw4w9WgXcQ",
                     browser = getOption("browser"),
                     encodeIfNeeded = FALSE)
  }
}