In R how to call a function with each element of a list, passing the element from the list as the first parameter for the function, and concatenate the results into a tibble?

gistfile1.txt

#Created mostly by Github Copilot
# Define a function that takes at least one parameter and returns a tibble
example_function <- function(element, additional_param) {
  tibble(
    element = c(element,2*element),
    additional_info = additional_param
  )
}

# Create a list of elements
example_list <- list(3, 5, 7)

# Call the function with each element of the list as the first parameter and concatenate the results into a tibble
result <- map_dfr(example_list, ~ example_function(.x, additional_param = "Extra"))

# Print the result
print(result)