usage of functions like `foo<-` should be treated with special care about roxygen2 HOT 3 CLOSED

#' Setter function
#' @param x an R object
#' @param value a character value to set
#' @export
`foo<-` <- function(x, value){
    attr(x, 'foo') <- value
    return(x)
}

\name{foo<-}
\alias{foo<-}
\title{Setter function}
\usage{
  foo(x, value) <- value
}
\arguments{
  \item{x}{an R object}

  \item{value}{a character value to set}
}
\description{
  Setter function
}

process.usage <- function(partitum) {
  if (is.null(partitum$fun) || !partitum$fun) {
    return(new_tag("usage", NULL))
  }

  if (!is.null(partitum$usage)) {
    return(new_tag("usage", partitum$usage))
  }

  fun_name <- if (!is.null(partitum$method)) {
    rd_tag('method', partitum$method[[1]], partitum$method[[2]])
  } else {
    partitum$assignee
  }

  is_setter_fun <- str_detect(fun_name, fixed("<-"))
  if(is_setter_fun) {
    partitum$formals["value"] <- NULL
  }
  args <- usage(partitum$formals)

  if (is_setter_fun) {
    fun_name <- str_replace(fun_name, fixed("<-"), "")
    new_tag("usage", str_c(fun_name, "(", args, ") <- value"))
  } else {
    new_tag("usage", str_c(fun_name, "(", args, ")"))
  }
}