Update vignettes/_translation_links.R

rikivillalba · MichaelChirico · web-flow · commit ed251951912c · 2024-12-16T13:57:26.000-03:00
Co-authored-by: Michael Chirico &lt;chiricom@google.com&gt;
diff --git a/vignettes/_translation_links.R b/vignettes/_translation_links.R
@@ -13,7 +13,7 @@
       pattern = glob2rx(knitr::current_input(FALSE))
     )
     transl_lang = ifelse(dirname(translation) == ".", "en", dirname(translation))
-    block = if (length(which(transl_lang != lang))) {
+    block = if (!all(transl_lang == lang)) {
       sprintf(
         fmt, paste(collapse = " | ", sprintf(
           "[%s](%s)",

Original file line number	Diff line number	Diff line change
`@@ -13,7 +13,7 @@`
`13`	`13`	`pattern = glob2rx(knitr::current_input(FALSE))`
`14`	`14`	`)`
`15`	`15`	`transl_lang = ifelse(dirname(translation) == ".", "en", dirname(translation))`
`16`		`- block = if (length(which(transl_lang != lang))) {`
	`16`	`+ block = if (!all(transl_lang == lang)) {`
`17`	`17`	`sprintf(`
`18`	`18`	`fmt, paste(collapse = " \| ", sprintf(`
`19`	`19`	`"[%s](%s)",`