R/rym_delete_uploaded_expense.R

Defines functions rym_delete_uploaded_expense

Documented in rym_delete_uploaded_expense

rym_delete_uploaded_expense <-
  function(counter,
           data,
           comment = paste0("Upload bt rym at ", Sys.time()),
           login = getOption("rym.user"),
           token.path = getOption("rym.token_path")) {

    # check path
    if (is.null(token.path)) {
      token.path <- getwd()
    }

    # encode comment
    comment <- URLencode(comment)

    # make temp file
    tf <- tempfile(fileext = ".csv")

    # save temp csv
    write.csv(data, tf)

    # auth
    ym_token <- rym_auth(login = login, token.path = token.path)$access_token

    answer <- POST(str_glue("https://api-metrika.yandex.ru/management/v1/counter/{counter}/expense/delete?provider=rym&comment={comment}"),
      body = list(file = upload_file(tf)),
      add_headers(Authorization = paste0("OAuth ", ym_token))
    )

    # remove file
    file.remove(tf)

    # check answer status
    stop_for_status(answer)

    # get answer
    raw_data <- content(answer, as = "parsed")

    # check for error
    if (!is.null(raw_data$errors)) {
      stop(raw_data$errors$error_type, ": ", raw_data$errors$message)
    }

    cat(
      " Upload Information:\n",
      "Uploadind ID:\t\t", raw_data$uploading$id, "\n",
      "Source Quantity:\t", raw_data$uploading$source_quantity, "\n",
      "Provider:\t\t", raw_data$uploading$provider, "\n",
      "Type:\t\t\t", raw_data$uploading$type, "\n",
      "Status:\t\t", raw_data$uploading$status, "\n"
    )

    return(TRUE)
  }
selesnow/rym documentation built on March 25, 2023, 7:38 a.m.