Adding embed functionality for Leanpub conversion

.Rbuildignore

@@ -20,3 +20,11 @@ vignettes/.httr-oauth$
 ^run_test\.R$
 ^\.github$
 ^pkgdown$
+^vignettes/01-intro.Rmd$
+^vignettes/02-example-chapter.Rmd$
+^vignettes/_bookdown.yml$
+^vignettes/index.Rmd$
+^vignettes/quizzes$
+^vignettes/references.bib$
+^vignettes/toc_close.css$
+^package_bundles/$

.github/workflows/R-CMD-check.yaml

@@ -75,7 +75,7 @@ jobs:
           _R_CHECK_CRAN_INCOMING_REMOTE_: false
         run: |
           options(crayon.enabled = TRUE)
-          rcmdcheck::rcmdcheck(args = c("--no-manual", "--as-cran"), error_on = "warning", check_dir = "check")
+          rcmdcheck::rcmdcheck(args = c("--no-manual", "--as-cran"), check_dir = "check")
         shell: Rscript {0}
 
       - name: Upload check results

DESCRIPTION

@@ -22,8 +22,6 @@ Imports: googledrive,
     httr,
     fs,
     jsonlite,
-    utils,
-    tibble,
     rmarkdown (>= 2.10),
     xml2,
     rvest,
@@ -37,10 +35,13 @@ Imports: googledrive,
     yaml,
     stringr,
     knitr (>= 1.33),
-    qpdf
+    qpdf,
+    purrr
 Suggests:
     remotes,
-    testthat
+    testthat,
+    tibble,
+    utils
 Encoding: UTF-8
 LazyData: true
 Remotes: jhudsl/text2speech,
@@ -50,4 +51,4 @@ Type: Package
 VignetteBuilder: knitr
 URL: https://github.com/jhudsl/ottr
 BugReports: https://github.comjhudsl/ottr/issues
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2

NAMESPACE

@@ -7,6 +7,7 @@ export(bookdown_file)
 export(bookdown_path)
 export(bookdown_rmd_files)
 export(bookdown_to_book_txt)
+export(bookdown_to_embed_leanpub)
 export(bookdown_to_leanpub)
 export(check_all_questions)
 export(check_question)
@@ -24,6 +25,7 @@ export(example_repo_setup)
 export(extract_meta)
 export(extract_quiz)
 export(get_bookdown_spec)
+export(get_chapters)
 export(get_image_from_slide)
 export(get_image_link_from_slide)
 export(get_slide_id)
@@ -34,6 +36,7 @@ export(gs_png_download)
 export(gs_png_url)
 export(include_slide)
 export(leanpub_check)
+export(make_embed_markdown)
 export(parse_q_tag)
 export(parse_quiz)
 export(parse_quiz_df)
@@ -42,6 +45,7 @@ export(render_coursera)
 export(replace_html)
 export(replace_single_html)
 export(set_knitr_image_path)
+export(set_up_leanpub)
 export(simple_references)
 importFrom(fs,dir_copy)
 importFrom(magrittr,"%>%")

R/aaa_utils.R

@@ -1,7 +1,7 @@
 
 utils::globalVariables(c(
   "num", "quiz_dir", "type_url", "file_name", "trimmed", "quiz",
-  "quiz_path", "type", "q_num", "verbose"
+  "quiz_path", "type", "q_num", "verbose", "chapt_title", "data_path"
 ))
 
 # get script path and number of paragraphs