Как автоматически отправить отчет R pivottabler в формате html в формате css?

Question

Я использую приведенный ниже код, и он выдает то же, что и прикрепленное изображение. Но я хочу отправить этот отчет через R автоматически. Как я могу отправить этот отчет в формате HTML, как показано на рисунке через R?

    blue1Colors <- list(
      headerBackgroundColor = "rgb(68, 114, 196)",
      headerColor = "rgb(255, 255, 255)",
      cellBackgroundColor = "rgb(255, 255, 255)",
      cellColor = "rgb(0, 0, 0)",
      totalBackgroundColor = "rgb(186, 202, 233)",
      totalColor = "rgb(0, 0, 0)",
      borderColor = "rgb(48, 84, 150)"
    )


    pt <- PivotTable$new()

    pt$addData(pivot_table_data, "first_pivot")

    pt$addColumnDataGroups("new_ageing")

    pt$addRowDataGroups("Final_Status")

    pt$defineCalculation(calculationName = "Grand Total", summariseExpression = "n()")

    pt_theme <- getSimpleColoredTheme(parentPivot = pt, colorsthe  = blue1Colors, fontName = "Verdana, Arial")

    pt$renderPivot()

вывод вышеуказанного кода