load_all() & friends corrupt imported S4 class definitions

[ghost]

@mtmorgan commented on Aug 10, 2018, 7:52 PM UTC:

Installed PkgA has R/classes.R (and implied NAMESPACE)

setClass("C")
setClass("D")

#' @export
setClass("B", contains = c("C", "D"))

PkgB has R/classes.R (etc)

#' @importClassesFrom PkgA B
setClass("A", contains = "B")

devtools::load_all() in PkgB does well the first time with

> devtools::load_all()
Loading PkgB
> getClass("B")
Class "B" [package "PkgA"]

No Slots, prototype of class "S4"

Extends: "C", "D"

Known Subclasses: "A"

but the second time the imported class "B" has lost the classes it extends

> devtools::load_all()
Loading PkgB
> getClass("B")
Class "B" [package "PkgA"]

No Slots, prototype of class "S4"

Known Subclasses: "A"

This is with

> packageVersion("devtools")
[1] '1.13.6.9000'

This issue was moved by jimhester from r-lib/devtools#1845.