要按日期运行R代码，可以使用系统时间函数和条件语句来实现。

以下是一个示例代码，它会根据日期执行不同的操作：

# 获取当前日期
current_date <- Sys.Date()

# 将日期格式转换为月份和日期
month <- format(current_date, "%m")
day <- format(current_date, "%d")

# 条件语句，根据日期执行不同的操作
if (month == "01" && day == "01") {
  # 如果是1月1日，执行操作1
  print("Happy New Year!")
} else if (month == "12" && day == "25") {
  # 如果是12月25日，执行操作2
  print("Merry Christmas!")
} else {
  # 对于其他日期，执行默认操作
  print("Today is just another day.")
}

在上面的示例中，我们首先获取当前日期并将其格式化为月份和日期。然后，使用条件语句来判断当前日期是否与特定日期匹配。如果匹配，执行相应的操作；否则，执行默认操作。

请根据自己的需求修改条件和操作，并将代码插入到您的R脚本或RStudio中。