fix of write links fn

Author: matthewphamilton

R/fn_write.R

@@ -477,12 +477,12 @@ write_links_for_website <- function (path_to_pkg_rt_1L_chr = getwd(), user_manua
         dest_path_1L_chr = paste0(path_to_pkg_rt_1L_chr, "/_pkgdown.yml"), 
         edit_fn = function(txt_chr, user_manual_url_1L_chr, developer_manual_url_1L_chr, 
             project_website_url_1L_chr) {
-            idx_1L_int <- which(text_chr == "home:")
+            idx_1L_int <- which(txt_chr == "home:")
             if (!identical(idx_1L_int, integer(0))) {
-                changes_chr <- c(any(text_chr == "  - text: User manual (PDF)"), 
-                  any(text_chr == "  - text: Developer version of usual manual (PDF)"), 
-                  any(text_chr == "  - text: Project website"))
-                txt_chr <- text_chr[-(1:(length(changes_chr[changes_chr == 
+                changes_chr <- c(any(txt_chr == "  - text: User manual (PDF)"), 
+                  any(txt_chr == "  - text: Developer version of usual manual (PDF)"), 
+                  any(txt_chr == "  - text: Project website"))
+                txt_chr <- txt_chr[-(1:(length(changes_chr[changes_chr == 
                   T]) + 2))]
             }
             c("home:", "  links:", ifelse(!is.na(user_manual_url_1L_chr), 

data-raw/DATASET.R

@@ -206,9 +206,9 @@ write_and_doc_fn_fls(fns_dmt_tb,
                      update_pkgdown_1L_lgl = T)
 #
 
-# write_links_for_website(user_manual_url_1L_chr = "https://github.com/ready4-dev/ready4fun/releases/download/v0.0.0.9270/ready4fun_0.0.0.9270.pdf",
-#                         #developer_manual_url_1L_chr = "https://ready4-dev.github.io/ready4/pdfs/ready4fun_0.0.0.9216_dev.pdf",
-#                         project_website_url_1L_chr = "https://www.ready4-dev.com/")
+write_links_for_website(user_manual_url_1L_chr = "https://github.com/ready4-dev/ready4fun/releases/download/v0.0.0.9276/ready4fun_user_0.0.0.9276.pdf",
+                        developer_manual_url_1L_chr = "https://github.com/ready4-dev/ready4fun/releases/download/v0.0.0.9276/ready4fun_developer_0.0.0.9276.pdf",
+                        project_website_url_1L_chr = "https://www.ready4-dev.com/")
 
 # 11. Create vignettes
 # NOTE TO SELF: Currently Vignettes are overwritten by this last step. Need to implement more sophisticated workflow.

data-raw/fns/write.R

@@ -402,12 +402,12 @@ write_links_for_website <- function(path_to_pkg_rt_1L_chr = getwd(), # Needs dup
                                     developer_manual_url_1L_chr,
                                     project_website_url_1L_chr){
 
-                   idx_1L_int <- which(text_chr=="home:")
+                   idx_1L_int <- which(txt_chr=="home:")
                    if(!identical(idx_1L_int,integer(0))){
-                     changes_chr <- c(any(text_chr == "  - text: User manual (PDF)"),
-                                      any(text_chr == "  - text: Developer version of usual manual (PDF)"),
-                                      any(text_chr == "  - text: Project website"))
-                     txt_chr <- text_chr[-(1:(length(changes_chr[changes_chr==T])+2))]
+                     changes_chr <- c(any(txt_chr == "  - text: User manual (PDF)"),
+                                      any(txt_chr == "  - text: Developer version of usual manual (PDF)"),
+                                      any(txt_chr == "  - text: Project website"))
+                     txt_chr <- txt_chr[-(1:(length(changes_chr[changes_chr==T])+2))]
                    }
                    c("home:",
                      "  links:",