如何调整R代码以获取2019年和2020年的数据

Question

我有下面的R代码，可从下表获取我2018年公司的财务数据：

$(window).scroll(function() {
    var scrollDistance = $(window).scrollTop();

    // Show/hide menu on scroll
    //if (scrollDistance >= 850) {
    //      $('nav').fadeIn("fast");
    //} else {
    //      $('nav').fadeOut("fast");
    //}

    // Assign active class to nav links while scolling
    $('.page-section').each(function(i) {
            if ($(this).position().top - $(this).height() <= scrollDistance) {
                    $('.navigation a.active').removeClass('active');
                    $('.navigation a').eq(i).addClass('active');
            }
    });
}).scroll();

data1_2 <-webpage2％>％html_nodes（xpath ='// * [@ class =“ tabElemNoBor overfH fvtDiv”]'）

＃从年度损益表获取数据   error_list_2 <-c（）   for（j in 1：length（data1_2））{

  # Extract all data tables

}

能否请您告诉我如何修改代码，以便获取2019年和2020年的数据？

请问我有一个完整的答案，因为我对R几乎一无所知，也请不要猛烈抨击：-）