Это относится к fortunes
пакет, который представляет собой пакет, который содержит всю набор юмористических цитат и комментариев из списков справки, конференций, форумов и даже StackOverflow.
Это на самом деле база данных или небольшой кадр данных, который вы можете просматривать.
library(fortunes)
fortune()
Чтобы получить случайный код. Или искать определенную один, например:
> fortune("stackoverflow")
datayoda: Bing is my friend...I found the cumsum() function.
Dirk Eddelbuettel: If bing is your friend, then rseek.org is bound
to be your uncle.
-- datayoda and Dirk Eddelbuettel (after searching for a function that
computes cumulative sums)
stackoverflow.com (October 2010)
Если вы хотите, чтобы получить все из них в dataframe, просто сделать
MyFortunes <- read.fortunes()
В номерах иногда называют, являются номерами строк этого dataframe , Чтобы найти все в stackoverflow:
> grep("(?i)stackoverflow",MyFortunes$source)
[1] 273 275
> fortune(275)
I used a heuristic... pulled from my posterior. That makes it Bayesian, right?
-- JD Long (in a not too serious chat about modeling strategies)
Stackoverflow (November 2010)
Я знаменит !!!!!!!!!!!! –
Да, вы, но вы никогда не сможете снова использовать эту шутку ... – Andrie
Я уже дважды использовал ее уже сегодня. Так что возьми ЭТО! :) –