remotes::install_github("jchrom/trelloR")
install.packages("lubridate", dependencies = TRUE)
install.packages("dplyr ", dependencies = TRUE)

# Указываем путь к папке куда будет сохранен полученный token
setwd("C:\\*********\\R_script\\trello")
# Получаем token
my_token = get_token("my_app", key = "", secret = "",
                     expiration = c( "never"))

trelloadd <- function(delcard = NULL,
                      addcard = NULL,
                      nlista = NULL){
  # Находим исходный лист сотрудника в Трелло откуда будем брать карточки
  для записи в дашборд
  ishod_tab <- get_list_cards(addcard)
  # Определяем доску куда пишем новые карточки
  bid = get_id_board(delcard)
  # Получаем все списки с листами на доске дашборда
  lid <- get_board_lists(bid)$id[nlista]
  # Получаем все карточки в необходимом листе куда пишем
  cid<-get_list_cards(lid)
  # Удаляем карточки, которые уже есть в листе сотрудника на дашборде
  if (length(cid$id)>0) {
    for (i in 1:length(cid$id)) {
      delete_resource(resource = "card", id = cid$id[i])
    }
  }else{
    print("no-del")
  }
  # Находим дату создания карточки в исходном листе
  dateList<- data.frame(dateadd = NA)
  for (i in 1:length(ishod_tab$id)) {
    cardID <- ishod_tab$id[i]
    dateList[i,1] <- strtoi(strtrim(cardID, 8), 16L)
  }
  dateList$dateadd <-as.POSIXct(dateList$dateadd, origin = "1970-01-01")
  # Циклом собираем лист записи и создаем карточку для переноса в дашборд
  if (length(ishod_tab$name)>0) {
    for (i in 1:length(ishod_tab$name)) {
        payload = list(
        idList = lid,
        name = ishod_tab$name[i],
        desc = paste0(ishod_tab$desc[i],"Date Add: " ,dateList$dateadd[i], "
                    В работе уже ", floor(as.vector(difftime(today(),dateList$dateadd[i], units='days'))), " день"),
        start = ishod_tab$start [i],
        due = ishod_tab$due [i],
        pos = "bottom"
      )
      r <- create_resource("card", body = payload)
    }
  }else{
    print("Ok")
  }
  if (nrow(bind_rows(ishod_tab$labels[]))>0) {
    # Добавляем лейблы (метки)
    bid = get_id_board(delcard)
    lid <- get_board_lists(bid)$id[nlista]
    cid <-get_list_cards(lid)
    # Находим карточки без меток
    nlab <- which( lapply(ishod_tab$labels, length)!=0 %in% T)
    for (i in nlab) {
      labl <- ishod_tab$labels[[i]]
      for (xi in 1:nrow(labl)) {
        r <-  add_label(cid$id[i], color = ishod_tab$labels[[i]][xi,4],
                        name = ishod_tab$labels[[i]][xi,3] )
      }
    }
   }else{
    print("no_lable")
  }
}

get_board_lists("https://trello.com/b/*****/сотрудник1",
query = list(customFieldItems = "true")
)

# Сотрудник1 ####
trelloadd(delcard = "od*****W",
          addcard = "600**********04",
          nlista = 2)
# Сотрудник2 ####
trelloadd(delcard = "od*****W",
          addcard = "5fc4********24",
          nlista = 3)
# Сотрудник3 ####
trelloadd(delcard = "od*****W",
          addcard = "5e94*********8ce",
          nlista = 4)
# Сотрудник4 ####
trelloadd(delcard = "od*****W",
          addcard = "5faa*********c522",
          nlista = 5)
# Сотрудник5 ####
trelloadd(delcard = "od*****W",
          addcard = "60744*******3394",
          nlista = 6)
# Сотрудник6 ####
trelloadd(delcard = "od*****W",
          addcard = "5e73******b07",
          nlista = 7)