FormatAsExcelLink

NF define an excel link
vertesy · Jan 16, 2022 · a3f11f9 · a3f11f9
1 parent 9793438
commit a3f11f9
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/R/Stringendo.R b/R/Stringendo.R
@@ -622,3 +622,25 @@ parFlags2 <-
 ww.break.lines <- function(char.vec = kppd(LETTERS), max.char = 50) {
   gsub(pattern = paste0("(.{", max.char, "})"), "\\1\n", char.vec)
 }
+
+
+
+
+
+# _________________________________________________________________________________________________
+#' FormatAsExcelLink
+#'
+#' @param site_name site_name
+#' @param site_name site_name
+#' @export
+#' @examples FormatAsExcelLink(site_name = c("Zero Hedge", "Free Software Foundation"), site_url = c("https://www.zerohedge.com", "https://www.fsf.org"))
+
+FormatAsExcelLink <- function(site_name, site_url) {
+  paste0(
+    "=HYPERLINK(\"",
+    site_url,
+    "\", \"",
+    site_name,
+    "\")"
+  )
+}