address comments from CRAN reviewer.

- no reference for the package.
- added \value into .Rd files.

.Rbuildignore

@@ -7,3 +7,4 @@
 ^pkgdown$
 ^vignettes/metalite-table1.Rmd$
 ^vignettes/fig$
+^vignettes/examples$

R/metalite_table1.R

@@ -9,6 +9,9 @@
 #' "none", "listing", "table", and 'all'.
 #' @param type a character value to control section title (e.g. "Subjects", "Records").
 #'
+#' @return a `shiny.tag.list` object that contain a `reactable` HTML widget for
+#' interactive table of describptive statistics.
+#'
 #' @examples
 #' if (interactive()) {
 #'   metalite_table1(~ AGE + SEX | TRT01A, data = r2rtf::r2rtf_adsl, id = "SUBJID")
@@ -104,7 +107,11 @@ metalite_table1 <- function(formula,
 #'
 #' @param x an output from `metalite_table1`.
 #'
+#' @return HTML string of `reactable` HTML widget for
+#' interactive table of describptive statistics.
+#'
 #' @export
 metalite_table1_to_html <- function(x) {
-  cat(htmltools::doRenderTags(x))
+  attributes(x)$browsable_html <- NULL
+  print(x)
 }

vignettes/examples/for-loop.Rmd

@@ -0,0 +1,22 @@
+```{r}
+library(metalite.table1)
+```
+
+```{r, include = FALSE}
+reactable::reactable(data.frame(x = 1))
+```
+
+```{r, results="asis"}
+type <- c("Subjects", "Records")
+for (i in 1:2) {
+  cat("### Table ", i, "\n")
+
+  tbl <- metalite_table1(~ AGE + SEX | ARM,
+    data = r2rtf::r2rtf_adsl,
+    id = "USUBJID",
+    type = type[i]
+  )
+  
+  metalite_table1_to_html(tbl)
+}
+```

vignettes/metalite-table1.Rmd

@@ -148,12 +148,28 @@ metalite_table1(~ AGE + SEX | ARM,
 
 ## Rmarkdown Render 
 
+```{r, include = FALSE}
+import_example <- function(file, lang = xfun::file_ext(file)) {
+  x = xfun::read_utf8(file.path("examples", file))
+  lang = tolower(lang)
+  if (nchar(lang) > 1) {
+    lang = sub('^r', '', lang)
+    if (lang == 'nw') lang = 'tex'
+  }
+  knitr::asis_output(paste(c(sprintf("````%s", lang), x, "````"), collapse = '\n'))
+}
+```
+
 Sometimes we want to create multiple tables in a for loop, 
-we need to clearly call the `print` function and 
+we need to clearly call the `metalite_table1_to_html` function and 
 [output text as raw content](https://bookdown.org/yihui/rmarkdown-cookbook/results-asis.html)
 by using `resutls="asis"` (e.g., `{r, results="asis"}`) in the Rmarkdown code chunk. 
+Create a dummy `reactable` object outside of for loop is necessary to include all 
+required javascript library. A full Rmarkdown example is as below.
+
+`r import_example("for-loop.Rmd")`
 
-```{r, results="asis"}
+```{r, results="asis", echo = FALSE}
 type <- c("Subjects", "Records")
 for (i in 1:2) {
   cat("### Table ", i, "\n")