Error in call[[1L]] : object of type 'symbol' is not subsettable, error in srr:::get_all_msg

[KlausVigo]

Hello,

I try to run pkgcheck (pkgstats: 0.1.3.13, pkgcheck: 0.1.2.21) on the package phangorn (https://github.com/KlausVigo/phangorn) and get the following error message:

> x <- pkgcheck()
ℹ Loading phangorn
Error in call[[1L]] : object of type 'symbol' is not subsettable
> traceback()
12: value[[3L]](cond)
11: tryCatchOne(expr, names, parentenv, handlers[[1L]])
10: tryCatchList(expr, classes, parentenv, handlers)
9: tryCatch(expr, error = function(e) {
       call <- conditionCall(e)
       if (!is.null(call)) {
           if (identical(call[[1L]], quote(doTryCatch))) 
               call <- sys.call(-4L)
           dcall <- deparse(call, nlines = 1L)
           prefix <- paste("Error in", dcall, ": ")
           LONG <- 75L
           sm <- strsplit(conditionMessage(e), "\n")[[1L]]
           w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
           if (is.na(w)) 
               w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 
                   type = "b")
           if (w > LONG) 
               prefix <- paste0(prefix, "\n  ")
       }
       else prefix <- "Error : "
       msg <- paste0(prefix, conditionMessage(e), "\n")
       .Internal(seterrmessage(msg[1L]))
       if (!silent && isTRUE(getOption("show.error.messages"))) {
    ...
8: try(roxygen2::parse_file(this_file, env = NULL))
7: FUN(X[[i]], ...)
6: lapply(flist, function(i) {
       this_file <- i
       is_rmd <- grepl("\\.Rmd$", i)
       if (is_rmd) {
           fout <- tempfile()
           rcpp_parse_rmd(i, fout)
           this_file <- fout
       }
       res <- try(roxygen2::parse_file(this_file, env = NULL))
       if (is_rmd) {
           res <- lapply(res, function(j) {
               j$file <- i
               return(j)
           })0.1.2.021
Authors@R:                 c( person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
                           comment = c(ORCID = "0000-0003-2172-5265")), person("Maëlle", "Salmon", role =
                           "aut"), person("Jacob", "Wujciak-Jens", , "[email protected]", role = "aut",
                           comment = c(ORCID = "0000-0002-7281-3989")) )
Description:               Check whe
       }
       return(res)
   })
5: get_all_msgs(path)
4: srr::srr_report(path = path, view = FALSE)
3: pkginfo_srr_report(path)
2: pkgstats_info(path, use_cache)
1: pkgcheck()
> 

Kind regards,
Klaus

[mpadge]

Thanks for the report @KlausVigo - all fixed now. You'll just need to update your version of srr to 0.1.2.9. I'll close this issue now, but let us know if any further issues arise.

[KlausVigo]

Thanks @mpadge, that was fast!