Is there a way to display a string with multiple \n in it (coming from external function) in fpar?

[Generalized]

I'd like to insert a formatted paragraph for a line of text with a number of soft returns.

Their number will vary. Is there a way to display them other than manually building a list of elements and function calls passed to fpar?

How to do it properly?

text <- "aa\nbb\ncc\ndd"
parts <- stringr::str_split(text, "\n")[[1]]

parts_lst <- list()
i <- 1
for(s in parts) {

  parts_lst[[i]] <- s
  i <- i+1
  parts_lst[[i]] <- run_linebreak()  # doesn't work
  i <- i+1
}  
  
read_docx() %>% 
  body_add_fpar(fpar(parts_lst)) %>% 
  print(target = "test.docx")

produces in the resulting docx a line of text: aaNULLbbNULLccNULLddNULL

My goal is to obtain:
aa
bb
cc
dd

[davidgohel]

Not from my memories.

fpar(parts_lst)

It does not work because you are using a list and it's not what the function is expecting. You can use do.call()

[davidgohel]

library(officer)
text <- "aa\nbb\ncc\ndd"
parts <- stringr::str_split(text, "\n")[[1]]

parts_lst <- list()
i <- 1
for(s in parts) {
  
  parts_lst[[i]] <- s
  i <- i+1
  parts_lst[[i]] <- run_linebreak()  # doesn't work
  i <- i+1
}  

read_docx() |> 
  body_add_fpar(do.call(fpar,parts_lst)) |> 
  print(target = "test.docx")

[Generalized]

Works like a charm, thank you!
I will wrap it in a helper function and reuse in my projects.

fpar_handle_linebreaks <- function(text) {
  
  parts <- strsplit(text, "\n")[[1]]
  print(parts)
  
  parts_lst <- list()
  i <- 1
  for(s in parts) {
    
    parts_lst[[i]] <- s
    i <- i+1
    parts_lst[[i]] <- run_linebreak()
    i <- i+1
  }  
  
    return(do.call(fpar,parts_lst))
}

#... and then - exemplary use:
body_add_fpar(fpar("some text",
                       run_linebreak(),
                       paste("Author:", get_report_options()$author),
                       run_linebreak(),
                       paste("Date/time:", get_report_options()$time),
                       run_linebreak(),
                       "Data sources: ")) %>%
    body_add_fpar(fpar_handle_linebreaks(get_ds_versions(data_sources = data_sources)))

# where get_ds_versions() returns a single string containing \n-separated information