R код для получения SAS, как если бы вывод условия

Question

По деловым причинам мне необходимо перенести коды из SAS в R. Я борюсь с приведенным ниже кодом -

if Date1 ^= mdy(12,31,9999) and AMT^= 0 then do;
            Var1 = 'Var1';
            AMT1 = AMT;
            if LOB = 'XYZ' and Date2 ^= mdy(12,31,9999) then do;
                Check = Date2;
                if Check < Date3 or Date3 = . then do;
                    V_Date = Check;
                    end;
                end;
            output output1;
            V_Date1 = Check;

            if Date_List1 ^= mdy(12,31,9999) then do;
                Var1 = 'GM';
                output output1;
                end;
            end;
        else do;
            output output1;
            delete;
            end;
        end;

К сожалению, у меня нет примеров данных для обмена для кода SAS. Я могу повторить условия If, у меня есть проблема с оператором Output. Как я могу сделать несколько операторов вывода в R?

Помощь оценена.