fix #10'

DESCRIPTION

@@ -2,7 +2,7 @@ Package: wildrwolf
 Type: Package
 Title: Fast Computation of Romano-Wolf Corrected p-Values for
        Linear Regression Models
-Version: 0.6.1
+Version: 0.7.0
 Authors@R: 
     c(
     person(given = "Alexander",
@@ -19,7 +19,7 @@ Description: Fast Routines to Compute Romano-Wolf corrected p-Values
 License: GPL (>= 3)
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3
 Imports: 
   fixest, 
   fwildclusterboot, 

NEWS.md

@@ -1,3 +1,9 @@
+# wildrwolf 0.7.0
+
+* Fixes a bug when the cluster in `feols()` was specified as character.
+  See [#10](https://github.com/s3alfisc/wildrwolf/issues/10) for details. 
+  Thanks to [@SebKrantz](https://github.com/SebKrantz) for reporting!
+
 # wildrwolf 0.6.1 
 
 * Hot-Fix release to address ATLAS test failures. Failing 

R/rwolf.R

@@ -200,7 +200,11 @@ rwolf <- function(
                )
 
              if(!is.null(clustid)){
-               boottest_quote$clustid <- formula(clustid)
+               if(is.character(clustid)){
+                 boottest_quote$clustid <- formula(paste0("~", clustid))
+               } else {
+                 boottest_quote$clustid <- formula(clustid)
+               }
              }
 
              if(!is.null(bootstrap_type)){

tests/testthat/test_misc.R

@@ -0,0 +1,20 @@
+test_that("test cluster input", {
+
+  # test that wildrwolf accepts formulas and characters
+  # as fixest cluster input
+
+  library(fixest)
+  library(wildrwolf)
+
+  dqrng::dqset.seed(123)
+  models1 = feols(c(vs, am) ~ mpg | cyl, mtcars, cluster = "carb")
+  rwolf1 = rwolf(models = models, param = "mpg", B = 9999)
+
+  dqrng::dqset.seed(123)
+  models2 = feols(c(vs, am) ~ mpg | cyl, mtcars, cluster = ~carb)
+  rwolf2 = rwolf(models = models, param = "mpg", B = 9999)
+
+  expect_equal(rwolf1, rwolf2)
+
+
+})