# Sample data
my_data <- data.frame(
USUBJID = c("Subject-01", "Subject-02"),
DOSE = c(100, 200),
RESPONSE = c(5.4, 8.1)
)
my_labels <- data.frame(
Dataset = "ADNCA",
Variable = "USUBJID",
Label = "Unique Subject ID"
) # Dummy labels object
vars_to_show <- c("USUBJID", "DOSE", "RESPONSE")
# Generate the tooltip text vector
tooltips <- generate_tooltip_text(my_data, my_labels, vars_to_show, "ADNCA")
my_data$tooltip <- tooltips
Run the code above in your browser using DataLab