Error in FUN(left, right) : non-numeric argument to binary operator in PlotCycleTime

[cpanse]

f <- "ftp://massive.ucsd.edu/MSV000086542/raw/20181113_010_autoQC01.raw"

rawfile <- file.path(cachedir <- tools::R_user_dir("rawrr", which='cache'), "20181113_010_autoQC01.raw")
if (!dir.exists(cachedir)) { dir.create(cachedir, recursive = TRUE) }
if (!file.exists(rawfile)) { download.file(f, rawfile) }
(rawfile)

> rawDiag:::PlotAll(S)
primer-PlotChargeState-trellis.png
primer-PlotChargeState-violin.png
primer-PlotChargeState-overlay.png
primer-PlotCycleLoad-trellis.png
`geom_smooth()` using formula 'y ~ x'
primer-PlotCycleLoad-violin.png
primer-PlotCycleLoad-overlay.png
`geom_smooth()` using formula 'y ~ x'
primer-PlotCycleTime-trellis.png
Error in FUN(left, right) : non-numeric argument to binary operator
> 

> sessionInfo()
R version 4.0.3 (2020-10-10)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS Big Sur 10.16

Matrix products: default
LAPACK: /Library/Frameworks/R.framework/Versions/4.0/Resources/lib/libRlapack.dylib

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] parallel  stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] lattice_0.20-41      ggplot2_3.3.3        rmarkdown_2.7        tidyr_1.1.2          rawDiag_0.0.40      
 [6] protViz_0.6.8        bfabricShiny_0.10.16 xml2_1.3.2           shinyStore_0.1.0     jsonlite_1.7.2      
[11] httr_1.4.2           PKI_0.1-8            base64enc_0.1-3      DT_0.17              shiny_1.6.0         

loaded via a namespace (and not attached):
 [1] nlme_3.1-149      fs_1.5.0          lubridate_1.7.10  bit64_4.0.5       tools_4.0.3       backports_1.2.1  
 [7] bslib_0.2.4       utf8_1.1.4        R6_2.5.0          DBI_1.1.1         mgcv_1.8-33       colorspace_2.0-0 
[13] withr_2.4.1       tidyselect_1.1.0  bit_4.0.4         compiler_4.0.3    rvest_0.3.6       labeling_0.4.2   
[19] sass_0.3.1        scales_1.1.1      hexbin_1.28.2     readr_1.4.0       stringr_1.4.0     digest_0.6.27    
[25] pkgconfig_2.0.3   htmltools_0.5.1.1 dbplyr_2.1.0      fastmap_1.1.0     htmlwidgets_1.5.3 rlang_0.4.10     
[31] readxl_1.3.1      rstudioapi_0.13   RSQLite_2.2.3     jquerylib_0.1.3   generics_0.1.0    farver_2.0.3     
[37] crosstalk_1.1.1   dplyr_1.0.4       magrittr_2.0.1    Matrix_1.2-18     Rcpp_1.0.6        munsell_0.5.0    
[43] fansi_0.4.2       lifecycle_1.0.0   stringi_1.5.3     yaml_2.2.1        debugme_1.1.0     plyr_1.8.6       
[49] grid_4.0.3        blob_1.2.1        promises_1.2.0.1  forcats_0.5.1     crayon_1.4.1      haven_2.3.1      
[55] splines_4.0.3     hms_1.0.0         knitr_1.31        pillar_1.5.0      markdown_1.1      codetools_0.2-16 
[61] rawrr_0.2.5       reprex_1.0.0      glue_1.4.2        evaluate_0.14     modelr_0.1.8      vctrs_0.3.6      
[67] httpuv_1.5.5      cellranger_1.1.0  gtable_0.3.0      purrr_0.3.4       assertthat_0.2.1  cachem_1.0.4     
[73] xfun_0.21         mime_0.10         xtable_1.8-4      broom_0.7.5       tidyverse_1.3.0   later_1.1.0.1    
[79] tibble_3.1.0      memoise_2.0.0     ellipsis_0.3.1   
> 

[cpanse]

> x %>% dplyr::filter_at(vars("MSOrder"), any_vars(. ==   "Ms"))
Error in any_vars(. == "Ms") : could not find function "any_vars"
> table(x$MSOrder)

   Ms   Ms2 
  995 20885 

[cpanse]

x %>% dplyr::filter_at(vars("MSOrder"), dplyr::any_vars(. ==   "Ms"))