«До чего дошел прогRесс». Замена «умственного» труда механическим процессом на базе R

Естественно, что вопрос можно рассматривать в разных плоскостях. И не всегда красивое технологическое решение принимается наверху.

Другое дело, что в конкретном случае есть еще важный внешний KPI — сокращение ФОТ. И его надо исполнять невзирая на растущий объем задач. И в этом случае звезды сходятся никак не на стороне любителей ручного труда.

Антон, в тексте я привел ссылки на пакет ReporteR.
А про сам R подробно было написано в предыдущих публикациях, можно поглядеть в них.

Там же написано, почему R, а не Python. По совокупности возможностей. Python — прекрасный язык, но 10 лет попыток прикрутить его для полноценной работы с данными каждый раз натыкались на массовое применение изоленты. А еще дилемма Python 2 или 3. Она вроде бы как закончилась недавно, но для меня это уже слишком поздно, поскольку я нашел ответы на все возникающие вопросы в рамках экосистемы R.

Отвечу в обратном порядке.

1. По поводу Python не скажу.
2. По поводу кода — загрузка данных и вычисления SLA слишком специфичны и индивидуальны, чтобы тут приводить. А формирование самого файла ниже (полная форма закомменчена, а сокращённая через пайпы внизу)

################################################################## Формируем шапку документа
# # Создаём болванчик ворд документа
# doc <- docx()
# # Название документа. Жирненькое, сдвинутое в центр.
# doc <- addParagraph(doc,
#                     pot(doc_title, format = textBold()),
#                     par.properties = parProperties(text.align = 'center'))
# 
# # Добавляем параграф с текстом про даты, затем со статичным текстом
# doc <- addParagraph(doc, dates_text)
# doc <- addParagraph(doc, my_text)
# 
# 
# # Добавляем содержание
# doc <- addTitle(doc, "Содержание")
# doc <- addTOC(doc)
# doc <- addPageBreak(doc) # Перенос на следующую страницу
# 
# 
# ######################################### Первый блок данных
# # делаем заголовок первого уровня
# doc <- addTitle(doc, value = "Устранение ТТ")
# 
# 
# ######################################### Формируем таблицу
# doc <- addFlexTable(doc, MyFTable)
# 
# ########################################### Итого для таблицы ##########################
# doc <- addParagraph(doc, pot(total_text, format = textBold()))
# doc <- addPageBreak(doc) # Разрыв страницы
# 
# 
# ########################################## Второй блок данных
# # делаем заголовок первого уровня
# doc <- addTitle(doc, value = "Проведённые плановые работы")

########################### Сокращённая форма записи
doc <- docx() %>%
  addParagraph(pot(doc_title, format = textBold()),
               par.properties = parProperties(text.align = 'center')) %>%
  addParagraph(dates_text) %>%
  addParagraph(my_text) %>%
  addTitle("Содержание") %>%
  addTOC() %>%
  addPageBreak() %>%
  addTitle("Устранение ТТ") %>%
  addFlexTable(MyFTable) %>%
  addParagraph(pot(total_text, format = textBold())) %>%
  addPageBreak() %>%
  addTitle("Проведённые плановые работы")

doc_title, dates_text, my_text , total_text — текст, который формируется заранее (оглавление, описание ГК и другие формальные части отчёта)
MyFTable — заготовленная заранее таблица, сформированная из обычного датафрейма data. Формирование показано ниже

MyFTable <- data %>% 
  vanilla.table %>%
  setZebraStyle(odd = '#eeeeee', even = 'white')

После того, как сформировали переменную doc, которая и содержит нужный нам документ — надо его как-то вывести Пользователю. Мы это сделали через DownloadHandler и опубликовали через Shiny Server.

Формируем элемент, содержащий нужный нам файл и генерим имя для этого файла

# Формируем элемент, выгружающий нужный нам документ
output$downloadData <- downloadHandler(
    filename = function() {
      paste("отчёт-такой-то-", Sys.Date(), ".docx", sep="")
    },
    content = function(file) {
      writeDoc(doc, file) # Функция для сохранения файла в docx формате
    }
  )

В удобное нам место вставляем кнопку для выгрузки этих данных

downloadButton("downloadData", "Сформировать отчёт в формате docx", class = "btn-primary")

Также мы ещё вывели те же самые данные для Пользователя через библиотеку DT, чтобы он мог заранее увидеть, что будет в его отчёте. Но это тема отдельной интересной статьи :)

Не совсем понятен вопрос. Если про правила расчета, то там месячный sla с различными пороговыми значениями, а композитная величина потом преобразуется в штрафной коэффициент.

прошу прощения, упустил картинку. Там указан SLA по тикету, а есть еще композитный SLA по услугам, включенным в рамочный контракт. По тикетам случаи бывают, но, как обычно миллион гибких уровней трансформируется в 3: "все бросили и побежали", "покурю и начну заниматься", "посмотрим завтра".

Отвечу, как всё у нас.
SLA подразумевает просто время устранения. В данном контракте особенность предмета контракта, что там почти весь SLA "Высокий".
Но сути это особенно не меняет. Берётся время начала работы, время окончания, вычитаются какие-то задержки со стороны Заказчика (если они имеются), сравнивается со значением SLA (вошло не вошло).
За кадром остался момент итогового отчёта. Помимо SLA каждого отдельного тикета — есть ещё общий SLA, который прописан, как "Общее время, на которое суммарно просрочены все тикеты". Оно для разных уровней SLA тоже разное. Но оно тоже считается не сложно. Потом в итоговый отчёт идёт помимо таблицы, что на скриншоте в статье, общая таблица.
Если есть более конкретные вопросы — пишите. Попробуем посмотреть на досуге.