Создание саморазрушающего кода в 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!")
Проблема в том, что ничто не мешает пользователю просто удалить этот файл.