unclear error from pagination with colwidhts

[Melkiades]

library(rlistings)
library(dplyr)

anl <- ex_adsl
anl <- anl[1:10, c("USUBJID", "ARM", "BMRKR1")]
anl <- var_relabel(anl,
  USUBJID = "Unique\nSubject\nIdentifier",
  ARM = "Description\nOf\nPlanned Arm"
)
lsting <- as_listing(ex_adae[1:25, ], disp_cols =  c("USUBJID", "AESOC", "RACE")

>   pag <- paginate_listing(lsting, colwidths = c(15, 15, 15, 15))
Error in if (nc[currentIndex] == 0L) upperBlockIndex <- c(upperBlockIndex, :
missing value where TRUE/FALSE needed

We need to check what was left out of the pagination machinery in paginate_listing from paginate_table

[gmbecker]

Right, so this came from the fact that the listings machinery was (incorrectly, I still assert) was using the names of colwidths. So I suppose the assertion was correct, but should not have been needed. I will create a PR that fixes this, as I already tracked it down.

[gmbecker]

Closed by #109