`@describeIn` with plain functions does not include the function name.

[jimhester]

#' S1 documentation
s1 <- function(x) { }

#' @describeIn s1 a function a lot like s1, but different
s2 <- function(x) { x + 1 }

Generates this Rd

% Generated by roxygen2 (4.0.2): do not edit by hand
\name{s1}
\alias{s1}
\alias{s2}
\title{S1 documentation}
\usage{
s1(x)

s2(x)
}
\description{
S1 documentation
}
\section{Functions}{
\itemize{
\item \code{}: a function a lot like s1, but different
}}

Note the lack of anything in the \code{} block. I would expect this to be \code{s2} for this example.

This problematic code seems to be minidesc.R#L76, which calls default_name.default() which just returns NULL.

I think the correct solution would be to create a default_name.function which returns the function name. If you agree let me know and I can make a pull request.

[jimhester]

I think this should be a valid test for the issue. My proposed fix doesn't seem to fix it though, I would have to keep digging to figure out why...

test_that("@describeIn class captures function name", {
  out <- roc_proc_text(rd_roclet(), "
    #' Title
    f <- function(x)

    #' @describeIn f A
    f2 <- function(x) 1
    ")[[1]]

  expect_equal(get_tag(out, "minidesc")$values$label, "a")
})