diff --git a/R/gs_power_wlr.R b/R/gs_power_wlr.R
index b983d1f7..8eb3b6bd 100644
--- a/R/gs_power_wlr.R
+++ b/R/gs_power_wlr.R
@@ -181,7 +181,8 @@ gs_power_wlr <- function(enroll_rate = define_enroll_rate(duration = c(2, 2, 10)
                          approx = "asymptotic",
                          r = 18,
                          tol = 1e-6,
-                         interval = c(.01, 1000)) {
+                         interval = c(.01, 1000),
+                         integer = FALSE) {
   # check of inputted sample size
   input_sample_size <- sum(enroll_rate$rate * enroll_rate$duration)
 
diff --git a/man/gs_power_wlr.Rd b/man/gs_power_wlr.Rd
index 3e27bd73..39459668 100644
--- a/man/gs_power_wlr.Rd
+++ b/man/gs_power_wlr.Rd
@@ -23,7 +23,8 @@ gs_power_wlr(
   approx = "asymptotic",
   r = 18,
   tol = 1e-06,
-  interval = c(0.01, 1000)
+  interval = c(0.01, 1000),
+  integer = FALSE
 )
 }
 \arguments{
@@ -89,6 +90,10 @@ Normally, \code{r} will not be changed by the user.}
 
 \item{interval}{An interval that is presumed to include the time at which
 expected event count is equal to targeted event.}
+
+\item{integer}{Logical value integer whether it is an integer design
+(i.e., integer sample size and events) or not. This argument is commonly
+used when creating integer design via \code{\link[=to_integer]{to_integer()}}.}
 }
 \value{
 A list with input parameters, enrollment rate,