Help with an R tattoo

[careisin]

I'm going through a tough divorce and I decided to do something that is wild and crazy by my standards. I wanted to incorporate something that showed my affinity for nerdy dad jokes, my religion, and my passion for analysis. So I came up with the code below.

library(reader)
last_moment <- Sys.time()
while (Sys.time() > last_moment)
  {
    last_moment <- Sys.time()
    n.readLines(
      "Bible/Proverbs/Chapter_3.txt",
      n=2,skip=4)
  }

I know this is a bit of an odd question for this forum, but I figure there are more experienced people out there that can make it better before I permanently tattoo it on my skin.

What I was going for, was an infinite loop that tries to send the message that as long as time keeps going on, live the message from Proverbs 3:5-6. Ideally I'd rather stay in base R and I want to keep it as concise as possible for room. I'm open to other ideas. Thanks for your help and having fun with it.

[nwerth]

A possible rewrite (comments just for explanation here):

while (interactive()) {  # As long as you're alive...
  message <- readLines("Bible/Proverbs/3.txt")[5:6] # Take the message...
  source(message)  # And execute it
}

I tried to find the "end of time" (maximum possible value of a POSIXct object), but it's unclear. It's somewhere between the values

as.POSIXct(c(6e16, 7e16), tz = "UTC", origin = "1970-01-01")

The first resolves to 1,901,326,280-05-29 10:40:00 UTC.