promtptContext added link

R/promptContext.R

@@ -21,12 +21,13 @@ promptContext <- function(type="simple"){
   assertthat::assert_that(
     assertthat::is.string(type)
   )
+  #-----------------------------------------------------------------------------
 
   if (!type %in% c("simple","actAs", "CoT", "rbionfoExp")){
     stop ("Not a valid context. Valid contexts are: simple, actAs, CoT or rbionfoExp")
   }else{
     return (eval(parse(text=type)))
   }
 
-  #-----------------------------------------------------------------------------
+
 }

R/selfcorrect.R

@@ -17,7 +17,7 @@
 #' \item{code.works}{A boolean value indicating whether the code works.}
 #' \item{exec.result}{A character string representing the execution results.}
 #' \item{tried.attempts}{An integer representing the number of attempts.}
-#' @seealso [promptContext()] for predefined contexts to use.
+#' @seealso \code{\link{promptContext}} for predefined contexts to use.
 #' @examples
 #' \dontrun{
 #'

R/sendPrompt.R

@@ -13,7 +13,7 @@ rbionfoExp="Act as an expert bioformatician and R user. Answer questions using y
 #' @param return.type The type of output to return, either the text response ("text") or the entire response object ("object").
 #' @param ... Additional arguments to be passed to the prompt function.
 #' @return The text response or the entire response object, based on the specified return type.
-#' @seealso [promptContext()] for predefined contexts to use.
+#' @seealso \code{\link{promptContext}} for predefined contexts to use.
 #' @examples
 #' \dontrun{
 #' agent <- setupAgent(name="openai",type="chat",model="gpt-4",