每天生成一个随机数

# specify maximun random number (minimum is 1)
MyMax <- 100

# this will make sure randomisation remains stable at each day
set.seed(as.numeric(Sys.Date()))

# show the randomised value
paste0("The video of the day is : video_", sample(1:MyMax, 1))

# [1] "The video of the day is : video_79"

无论您今天运行此代码多少次,您都会得到相同的输出。明天,它将发生变化,并将全天保持稳定,等等。

我在上述评论的帮助下找到的解决方案。

# Data
MyMax <- 45
MyValues <- paste0("The video of the day is : video_", seq(1:MyMax))

# Random generator
set.seed(as.numeric(Sys.Date()))
MyRandomNumber <- sample(1:MyMax, 1)

# Output
print(MyValues[MyRandomNumber])

这将为每天生成一个随机数。

library(tidyverse)

dayYear <- as.Date(Sys.Date(),format='%d/%m/%Y') %>% lubridate::yday() %>% integer()
set.seed(dayYear)
randNum <- rnorm(1)