more fixes to links fn

Author: matthewphamilton

R/fn_write.R

@@ -483,7 +483,7 @@ write_links_for_website <- function (path_to_pkg_rt_1L_chr = getwd(), user_manua
                   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))]
+                  T]) * 2))]
             }
             c("home:", "  links:", ifelse(!is.na(user_manual_url_1L_chr), 
                 "  - text: User manual (PDF)", NA_character_), 

_pkgdown.yml

@@ -1,14 +1,3 @@
-home:
-  links:
-  - text: User manual (PDF)
-    href: https://github.com/ready4-dev/ready4fun/releases/download/v0.0.0.9278/ready4fun_user_0.0.0.9278.pdf
-  - text: Developer version of usual manual (PDF)
-    href: https://github.com/ready4-dev/ready4fun/releases/download/v0.0.0.9278/ready4fun_developer_0.0.0.9278.pdf
-  - text: Project website
-    href: https://www.ready4-dev.com/
-    href: https://github.com/ready4-dev/ready4fun/releases/download/v0.0.0.9276/ready4fun_developer_0.0.0.9278.pdf
-  - text: Project website
-    href: https://www.ready4-dev.com/
 development:
   mode: auto
 reference:

data-raw/fns/write.R

@@ -407,7 +407,7 @@ write_links_for_website <- function(path_to_pkg_rt_1L_chr = getwd(), # Needs dup
                      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))]
+                     txt_chr <- txt_chr[-(1:(length(changes_chr[changes_chr==T])*2))]
                    }
                    c("home:",
                      "  links:",