tools/make-init-example.R

In rstudio/keras: R Interface to 'Keras'

if(!"source:tools/utils.R" %in% search()) envir::attach_source("tools/utils.R")

# relative to root ~/github/keras-team/keras-io/
tutobook_path <- "examples/nlp/neural_machine_translation_with_transformer.py" |>
  fs::path_norm() |> fs::path_ext_set(".py")

url <- paste0("https://raw.githubusercontent.com/keras-team/keras-io/master/",
              tutobook_path)

withr::with_dir("~/github/keras-team/keras-io/", system("git pull"))
outfile <- sub("https://raw.githubusercontent.com/keras-team/keras-io/master/",
               "vignettes-src/", url, fixed = TRUE) |>
  fs::path_ext_set(".Rmd") |>
  sub("/guides/", "/", x = _, fixed = TRUE)


tutobook_text <- readLines(url)
tether_path <- fs::path(".tether", outfile)
fs::dir_create(dirname(tether_path))
tutobook_text |> writeLines(tether_path)
tutobook_to_rmd(url, outfile, tutobook_text)

file.edit(outfile)