From 1777260da23c5a0af473f80eae98752ba404b7ed Mon Sep 17 00:00:00 2001
From: sbalci <drserdarbalci@gmail.com>
Date: Wed, 10 Jul 2024 22:35:15 +0300
Subject: [PATCH] update

---
 generate_html.R |  2 +-
 generate_qmd.R  | 12 ++++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/generate_html.R b/generate_html.R
index 7b29f86..393154f 100644
--- a/generate_html.R
+++ b/generate_html.R
@@ -141,7 +141,7 @@ html_text <- function(TemplateTR, TemplateEN, stain, dzi_info) {
 '
 
   html_text_list <- list()
-  for (s in stain) {
+  for (s in trimws(stain)) {
     data <- list(
       TemplateTR = TemplateTR,
       TemplateEN = TemplateEN,
diff --git a/generate_qmd.R b/generate_qmd.R
index 25e1ff6..0f26c6c 100644
--- a/generate_qmd.R
+++ b/generate_qmd.R
@@ -349,7 +349,7 @@ qmd_text <- paste(qmd_text, head_text, sep = "\n\n")
 
 # screenshot render ----
 
-for (s in stain) {
+for (s in trimws(stain)) {
   data_screenshot <- list(
     template = template,
     stain = s
@@ -371,7 +371,7 @@ qmd_text <- paste(qmd_text, tab1, sep = "\n\n")
 
 # wsi_link_string render ----
 
-for (s in stain) {
+for (s in trimws(stain)) {
   data_wsi_link <- list(
     TemplateTR = TemplateTR,
     TemplateEN = TemplateEN,
@@ -395,7 +395,7 @@ qmd_text <- paste(qmd_text, tab2, sep = "\n\n")
 
 # wsi_string render ----
 
-for (s in stain) {
+for (s in trimws(stain)) {
   data_wsi <- list(
     TemplateTR = TemplateTR,
     TemplateEN = TemplateEN,
@@ -728,7 +728,7 @@ readme_text <- paste(readme_text, head_text, sep = "\n\n")
 
 ## wsi_link_string render ----
 
-for (s in stain) {
+for (s in trimws(stain)) {
   data_wsi <- list(
     TemplateTR = TemplateTR,
     TemplateEN = TemplateEN,
@@ -748,7 +748,7 @@ for (s in stain) {
 #
 # ## wsi_string render ----
 #
-# for (s in stain) {
+# for (s in trimws(stain)) {
 #   data_wsi <- list(
 #     TemplateTR = TemplateTR,
 #     TemplateEN = TemplateEN,
@@ -783,7 +783,7 @@ if (use_youtube) {
 
 ## yaml_string render ----
 
-for (s in stain) {
+for (s in trimws(stain)) {
   data_yaml <- list(
     TemplateTR = TemplateTR,
     TemplateEN = TemplateEN,