在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 ()＆lt; - 通过它我可以删除一些文件........

可能我对自己的想法很清楚。

抱歉新手问题。

Answer 1

将此条件添加到许可证中。 （＆＃34; 30天免费，之后您将需要支付＆＃34;。）并期望用户遵守此规定。

你真的无能为力。

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

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

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