modified for local context

Author: libjohn

_ZZ_move_HTML-docs_to_blog-dir.Rmd

@@ -34,7 +34,7 @@ here()
 up_1_dir <- ".."
 dir_blogdown_target <- "blogdown2-rfun" 
 dir_blogdown_static_target <- "static"
-dir_map_docs_target <- "map"
+dir_map_docs_target <- "git"
 
 target_dircopy_location <- glue(up_1_dir,
                                 dir_blogdown_target,
@@ -48,7 +48,11 @@ here(target_dircopy_location)
 #dir_copy(here("docs"), here(target_dircopy_location))
 #file_move(here(target_dircopy_location, "docs"), 
 #          here(target_dircopy_location, "map"))
+```
+
+ONLY WHEN YOU KNOW...  Manually run the next code chunk when you are sure you know what's happening.
 
+```{r eval=FALSE, include=FALSE}
 link_create(here("docs"),
             here(target_dircopy_location))