filename <- "FILENAME"
fileConn <- file(paste0(filename, '.rmd'))
writeLines(xfun::file_string(rmarkdown:::convert_ipynb(paste0(filename, '.ipynb'))), fileConn)
close(fileConn)The following will also do:
rmarkdown::convert_ipynb(paste0(filename, '.ipynb'))