用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

将此条件添加到license中。("30天免费，超过30天你必须付费")，并期望用户遵守这一点。

你真的没有别的办法了。

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

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

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