func_def <- c(
"#' Extracts object from a response list",
"#'",
"#' @export",
"object <- function(response) {",
" if (!is.list(response)) {",
" stop('Invalid response format. Expected list object.')",
" }",
"}")
roxygen2_docu <- extract_roxygen2(func_def)
print(roxygen2_docu)
Run the code above in your browser using DataLab