在 R 中编写自毁代码

Question

我正在用 R 制作一个包，并希望它成为试用版，为期 30 天。

我的问题是如何根据天数使代码自毁？

我玩了一段时间的时间和日期包我才知道​​，

Sys.Date() 可以给出今天的日期，所以我得到下面的东西

today=Sys.Date()
a=today
b=a+1
if(a==today)
{ 
   print(paste("today is  sunday"))
   if(b==today){
       print(paste("today  is  monday"))
    }             

我知道无论我做什么都是愚蠢的工作，我唯一的想法是将包的第一次使用固定为开始日，并且每天它会增加直到 30 天，当它达到限制时它会自动销毁使用

file.remove ()

也许我对自己的想法很清楚。

很抱歉这个新手问题。

Answer 1

将此条件添加到许可证中。 （“30 天免费，之后您必须付费”。）并希望用户遵守此规定。

你真的无能为力了。

嗯，实际上你可以。例如，在您的代码第一次运行时，将当前日期保存到某个位置的文件中（例如，"~/.datetocheck"）。然后每次运行你的代码时，检查这个文件是否存在，如果存在，比较日期。如果超过 30 天，请给出错误消息：

stop("Time is over! You have to pay!")

问题是没有什么能阻止用户简单地删除这个文件。