fix broken links to figures

ropensci · Mar 5, 2024 · cc241fa · cc241fa
1 parent dabab5e
commit cc241fa
Show file tree

Hide file tree

Showing 7 changed files with 32 additions and 6 deletions.
diff --git a/R/internal_functions.R b/R/internal_functions.R
@@ -2243,6 +2243,9 @@
         # add 0s at star and end so polygon doesnt twist
         spc[c(1, nrow(spc)), 2] <- 0
 
+        # flip values so they are aligned at the right side
+        spc[,2] <- abs(spc[,2] - max(spc[,2]))
+
         # add polygon with spectrum shape
         polygon(spc[, 2:1], col = spc_fill, border = NA)
 

diff --git a/man/excess_attenuation.Rd b/man/excess_attenuation.Rd
diff --git a/vignettes/align_test_sounds.Rmd b/vignettes/align_test_sounds.Rmd
@@ -68,7 +68,7 @@ opts_chunk$set(fig.align = "center",
 
 <img src="baRulho_sticker.png" alt="baRulho sticker" align="right" width = "25%" height="25%"/>
 
-This vignette shows deals with two things: how to create synthetic sounds for playback experiments and how to align re-recorded sounds to their reference once playback has been conducted. Here is some terms that will be used in this vignettes and throughout the package.
+This vignette deals with two things: how to create synthetic sounds for playback experiments and how to align re-recorded sounds to their reference once playback has been conducted. Here is some terms that will be used in this vignettes and throughout the package.
 
 &nbsp;
 
@@ -470,13 +470,25 @@ aligned_imgs
 
 ```
 
- These are two of the files generated by the code above:
+```{r, echo = FALSE}
+
+# try to copy files to man/figures
+# fc <- file.copy(from = aligned_imgs[1:2], 
+#           to = file.path("../man/figures", basename(aligned_imgs[c(1, 4)])))
+
+fc <- file.copy(from = aligned_imgs[c(1, 4)], 
+          to = file.path("../vignettes", basename(aligned_imgs[c(1, 4)])),overwrite = TRUE)
+
+```
+
+
+These are two of the files generated by the code above:
 
 ```{r, echo=FALSE, out.width="100%"}
 
-knitr::include_graphics(aligned_imgs[[1]])
+knitr::include_graphics(basename(aligned_imgs[1]))
 
-knitr::include_graphics(aligned_imgs[[4]])
+knitr::include_graphics(basename(aligned_imgs[4]))
 
 ```
 

diff --git a/vignettes/plot_align_10m_closed.jpeg b/vignettes/plot_align_10m_closed.jpeg
diff --git a/vignettes/plot_align_30m_closed.jpeg b/vignettes/plot_align_30m_closed.jpeg
diff --git a/vignettes/plot_degradation_p1.jpeg b/vignettes/plot_degradation_p1.jpeg
diff --git a/vignettes/quantify_degradation.Rmd b/vignettes/quantify_degradation.Rmd
@@ -221,6 +221,17 @@ test_sounds_est <-
 degrad_imgs <- plot_degradation(test_sounds_est, dest.path = tempdir())
 ```
 
+```{r, echo = FALSE}
+
+# try to copy files to vignettes
+# fc <- file.copy(from = aligned_imgs[1:2], 
+#           to = file.path("../man/figures", basename(aligned_imgs[c(1, 4)])))
+
+fc <- file.copy(from = degrad_imgs[1], 
+          to = file.path("../vignettes", basename(degrad_imgs[1])), overwrite = TRUE)
+
+```
+
 These are the paths to some of the image files:
 ```{r, eval = TRUE}
 
@@ -230,7 +241,7 @@ degrad_imgs
 
 ```{r, echo=FALSE, out.width="100%", fig.align='center'}
 
-knitr::include_graphics(degrad_imgs[1])
+knitr::include_graphics(basename(degrad_imgs[1]))
 
 ```