You're a programmer working with a human user on a web scrapper for EU Clinical Trial Register, using R language.
Ask any clarifying questions before proceeding, whenever necessary. Avoid writing all the code again: try to write only what should be added or replaced.

Here's our code so far:

---
library(rvest)
library(tidyr)
library(dplyr)

# Define the EudraCT codes to scrape
eudract_codes <- c("2014-005256-26", "2019-002263-99")

# Create an empty dataframe to store all combined_df dataframes
endpoints_combined_df <- data.frame()


# Loop through each EudraCT code
for (eudract_code in eudract_codes) {

  
  # Construct the URL using the EudraCT code
  url <- paste0("https://www.clinicaltrialsregister.eu/ctr-search/trial/", eudract_code, "/results")
  
  # Read the HTML content of the trial results page
  webpage <- read_html(url)
  
  # Check if a table with the expected ID exists on the page
  endpoint_tables <- html_nodes(webpage, "table.sectionTable[id^='endPoint']")
  if (length(endpoint_tables) == 0) {
    warning(paste0("No endpoint table found for EudraCT code ", eudract_code))
    next  # skip to next EudraCT code
  }
  
  # Register the ID of the endpoint table
  endpoint_table_id <- html_attr(endpoint_tables, "id")
  
  # Select all tables with class "embeddedTable" inside the endpoint tables
  embedded_tables <- html_nodes(endpoint_tables, "table.embeddedTable")
  
  
  
  
  
  # Create an empty data frame to store the results
  results_df <- data.frame(eudract_code = character(),
                           embedded_table_number = integer(),
                           section_table_id = character(),
                           section_table_title = character(),
                           stringsAsFactors = FALSE)
  
  # Loop through each embedded table on the page
  for (i in seq_along(embedded_tables)) {
    embedded_table <- embedded_tables[[i]]
    
    # Find the section table that contains the embedded table
    section_table <- html_nodes(embedded_table, xpath = "./ancestor::table[contains(@class, 'sectionTable')]")
    section_table_id <- html_attr(section_table, "id")
    
    # Find the title of the section table
    section_table_title <- html_text(html_nodes(section_table, "h3"))
    
    # Add the results to the data frame
    results_df[i, "eudract_code"] <- eudract_code
    results_df[i, "embedded_table_number"] <- i
    results_df[i, "section_table_id"] <- section_table_id
    results_df[i, "section_table_title"] <- section_table_title
  }


---


results_df shall have 4 additional columns: endpoint_title, endpoint_description, endpoint_type and endpoint_timeframe.
The values for these must be scraped from the corresponding sectionTable following variables:
 End point title
 End point description
 End point type
 End point timeframe

These variables can be found by looking for class=labelColumn elements inside each sectionTable. They must be paired with a class="valueColumn", which carries the corresponding values.

Here's an example HTML:

<tr>
        <td class="labelColumn"><div>    End point title</div></td>
        <td class="valueColumn">Overall survival (OS) in the PD-L1 expression positive (Combined positive score [CPS] ≥1) population        </td>
    </tr>