add suffix and prefix arguments

agricolamz · Apr 13, 2020 · 7259fb2 · 7259fb2
1 parent 822544c
commit 7259fb2
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/R/check_hints.R b/R/check_hints.R
@@ -2,8 +2,8 @@
 #'
 #' @param hint_text hint paragraph texts; can contain markdown
 #' @param hint_title hint title texts; can contain markdown
-#' @param hint_prefix string that added to each hint_title to the left side
-#' @param hint_suffix string that added to each hint_title to the right side
+#' @param hint_title_prefix string that added to each hint_title to the left side
+#' @param hint_title_suffix string that added to each hint_title to the right side
 #' @param hint_id unique identidier for each hint
 #' @param list_title unique identidier for each hint
 #'
@@ -29,7 +29,7 @@ check_hints <- function(hint_text,
                         list_title = "Click here to see/close the list of hints",
                         hint_id){
   if(knitr::is_html_output()){
-    hint_text <- paste0(hint_prefix, hint_text, hint_suffix)
+    hint_title <- paste0(hint_title_prefix, hint_title, hint_title_suffix)
     df <- data.frame(hint_text, hint_title, stringsAsFactors = FALSE)
     df$hint_id <- sample(2:1e5, nrow(df))
 

diff --git a/man/check_hints.Rd b/man/check_hints.Rd