Создание саморазрушающего кода в R

Я делал пакет в R и хотел бы сделать его пробной версией в течение 30 дней.

Ну, мой вопрос, как сделать саморазрушительный код зависит от количества дней?

Я играл с пакетом времени и даты некоторое время, где я узнал,

Sys.Date() может дать сегодняшнюю дату, так что я получаю forard с чем-то ниже

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 () <- через который я могу удалить какой-то файл........

Может быть, я ясен со своими идеями.

Извините за вопрос новичка.

1 ответ

Добавьте это условие в лицензию. ("30 дней бесплатно, после этого вам придется заплатить".) И ожидать, что пользователи будут соблюдать это.

Больше ничего не поделаешь.

Ну, на самом деле вы можете. Например, при первом запуске кода сохраните текущую дату в файл в определенном месте (скажем, "~/.datetocheck"). Затем при каждом запуске кода проверяйте наличие этого файла и, если он существует, сравнивайте даты. Если прошло более 30 дней, выведите сообщение об ошибке:

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

Проблема в том, что ничто не мешает пользователю просто удалить этот файл.

Другие вопросы по тегам