construct_prompt_text | R Documentation |
Construct prompt text from a tidyprompt object
construct_prompt_text(x, llm_provider = NULL)
x |
A tidyprompt object |
llm_provider |
An optional llm_provider object. This may sometimes affect the prompt text construction |
The constructed prompt text
Other tidyprompt:
get_chat_history()
,
get_prompt_wraps()
,
is_tidyprompt()
,
set_chat_history()
,
tidyprompt()
,
tidyprompt-class
prompt <- tidyprompt("Hi!")
print(prompt)
# Add to a tidyprompt using a prompt wrap:
prompt <- tidyprompt("Hi!") |>
add_text("How are you?")
print(prompt)
# Strings can be input for prompt wraps; therefore,
# a call to tidyprompt() is not necessary:
prompt <- "Hi" |>
add_text("How are you?")
# Example of adding extraction & validation with a prompt_wrap():
prompt <- "Hi" |>
add_text("What is 5 + 5?") |>
answer_as_integer()
## Not run:
# tidyprompt objects are evaluated by send_prompt(), which will
# handle construct the prompt text, send it to the LLM provider,
# and apply the extraction and validation functions from the tidyprompt object
prompt |>
send_prompt(llm_provider_ollama())
# --- Sending request to LLM provider (llama3.1:8b): ---
# Hi
#
# What is 5 + 5?
#
# You must answer with only an integer (use no other characters).
# --- Receiving response from LLM provider: ---
# 10
# [1] 10
# See prompt_wrap() and send_prompt() for more details
## End(Not run)
# `tidyprompt` objects may be validated with these helpers:
is_tidyprompt(prompt) # Returns TRUE if input is a valid tidyprompt object
# Get base prompt text
base_prompt <- prompt$base_prompt
# Get all prompt wraps
prompt_wraps <- prompt$get_prompt_wraps()
# Alternative:
prompt_wraps <- get_prompt_wraps(prompt)
# Construct prompt text
prompt_text <- prompt$construct_prompt_text()
# Alternative:
prompt_text <- construct_prompt_text(prompt)
# Set chat history (affecting also the base prompt)
chat_history <- data.frame(
role = c("user", "assistant", "user"),
content = c("What is 5 + 5?", "10", "And what is 5 + 6?")
)
prompt$set_chat_history(chat_history)
# Get chat history
chat_history <- prompt$get_chat_history()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.