Converting text to html format in R - html

Question

I have a dataframe with lots of text data that needs to be formatted into html. Here is one example with sub-bullets. Not all lists have sub-bullets. Sub-bullet sare those that start with o
text <- "• Direct the Department’s technical/analytical activities and drive
collaborative relationships with internal personnel and vendors to improve financial
operations and detect, mitigate and prevent financial risk
• Perform supervisory and managerial responsibilities as leader of the program
o Set direction to ensure goals and objectives align with corporate and division strategy
o Select management and other key personnel; oversee talent development and succession
planning
o Collaborate with executive colleagues to develop and execute corporate initiatives and
department strategy
o Oversee the preparation and execution of department’s Annual Financial Plan and budget
o Manage merit pay in accordance with specified objectives and guidelines
• Perform other duties as assigned"
The formatted version is supposed to look like this.
<ul>
<li>Direct the Department's technical/analytical activities and drive collaborative relationships with internal personnel and vendors to improve financial operations and detect, mitigate and prevent financial risk</li>
<li>Perform supervisory and managerial responsibilities as leader of the program
<ul>
<li>Set direction to ensure goals and objectives align with corporate and division strategy</li>
<li>Select management and other key personnel; oversee talent development and succession planning</li>
<li>Collaborate with executive colleagues to develop and execute corporate initiatives and department strategy</li>
<li>Oversee the preparation and execution of department's Annual Financial Plan and budget</li>
<li>Manage merit pay in accordance with specified objectives and guidelines</li>
</ul>
<li>Perform other duties as assigned</li>
</ul>
The "text" above is an example of the type of data. Some have sub bullets other not.
I have no problem doing the li>, the tricky part is finding the sub-bullets and surrounding them with ul> and /ul>
This code does most of it, but how to I put back into the dataframe dfClean?
# Use the str_split() function from the stringr package to split the text into a list of sentences
for (k in 1:6) {
temp_sentence <- str_split(dfClean[k,24], "\\r\\n")[[1]]
# Find the indices of the sentences starting with <li>o
o_indices <- ifelse(grep("^o", temp_sentence), grep("^o", temp_sentence), 0)
# Use the paste0() function to create the HTML list
html_list <- paste0("<ul>\n")
for (i in 1:length(temp_sentence)) {
if(length(o_indices) > 0){
if (i == o_indices[1]) {
html_list <- paste0(html_list, "\t<ul>\n") # add <ul> before subbullets
}
# add extra tab for sub-bullets
if (i %in% o_indices) {
html_list <- paste0(html_list, "\t\t<li>", temp_sentence[i], "</li>\n")
}
else {
html_list <- paste0(html_list, "\t<li>", temp_sentence[i], "</li>\n")
}
# add </ul> after last sub bullet
if (i == o_indices[length(o_indices)]) {
html_list <- paste0(html_list, "\t</ul>\n")
}
}
else {html_list <- paste0(html_list, "\t<li>", temp_sentence[i], "</li>\n")
}
}
print(k)
html_list <- paste0(html_list, "</ul>\n")
# remove dots
html_list <- gsub("<li>•|<li>o", "<li>", html_list)
# Print the HTML list
cat(html_list)
}