for循环不打印结果

Question

我正在尝试运行这段代码，我想从中得到“生日快乐！”打印出来

start_date <- as.Date("2025-01-01")
end_date <- as.Date("2025-01-01")

for (current_date in seq.Date(start_date, end_date, by = "days")) 
{if(as.character(current_date) == "2025-01-01"){print("Happy Birthday!")}}

current_date 正在成为一个具有奇怪数值的对象，经过多次尝试使其正常工作后，我还没有收到消息。有什么建议吗！

Answer 1

您还需要将当前日期与日期进行比较，而不是字符串。

start_date <- as.Date("2025-01-01") 
end_date <- as.Date("2025-01-01")

for (current_date in seq.Date(start_date, end_date, by = "days")) 
{
  if(current_date == as.Date("2025-01-01"))
  {
    print("Happy Birthday!")
  }
}

干杯。