From 1793a2650f38835ed2b5c0f15317e3790fdf6962 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Mon, 1 Jun 2026 09:22:27 +0200
Subject: [PATCH] updated links

---
 R/data_plots.R  | 27 +++++++++++++++++++++++----
 R/ui_elements.R |  4 ++--
 2 files changed, 25 insertions(+), 6 deletions(-)

diff --git a/R/data_plots.R b/R/data_plots.R
index 41edfb20..b9e84c85 100644
--- a/R/data_plots.R
+++ b/R/data_plots.R
@@ -41,6 +41,7 @@ data_visuals_ui <- function(id, tab_title = "Plots", ...) {
             ),
             shiny::tags$br(),
             shiny::uiOutput(outputId = ns("type")),
+            shiny::h5(i18n$t("Other variables")),
             shiny::uiOutput(outputId = ns("secondary")),
             shiny::uiOutput(outputId = ns("tertiary"))
           ),
@@ -102,14 +103,14 @@ data_visuals_ui <- function(id, tab_title = "Plots", ...) {
         shiny::p(
           "We have collected a few notes on visualising data and details on the options included in FreesearchR:",
           shiny::tags$a(
-            href = "https://agdamsbo.github.io/FreesearchR/articles/visuals.html",
+            href = "https://freesearchr.github.io/FreesearchR-knowledge/app/visuals.html",
             "View notes in new tab",
             target = "_blank",
             rel = "noopener noreferrer"
           )
         )
       ),
-      shiny::plotOutput(ns("plot"), height = "70vh"),
+      shiny::plotOutput(ns("plot"), height = "65vh"),
       shiny::tags$br(),
       shiny::tags$br(),
       shiny::htmlOutput(outputId = ns("code_plot"))
@@ -193,7 +194,7 @@ data_visuals_server <- function(id, data, palettes = color_choices(), ...) {
         vectorSelectInput(
           inputId = ns("type"),
           selected = NULL,
-          label = shiny::h4(i18n$t("Plot type")),
+          label = shiny::h5(i18n$t("Plot type")),
           choices = Reduce(c, plots_named),
           multiple = FALSE
         )
@@ -362,7 +363,25 @@ data_visuals_server <- function(id, data, palettes = color_choices(), ...) {
         if (!is.null(rv$plot)) {
           rv$plot
         } else {
-          return(NULL)
+          # Create a placeholder plot with instructions using ggplot2
+          ggplot2::ggplot() +
+            ggplot2::annotate(
+              "text",
+              x = 0.5,
+              y = 0.5,
+              label = i18n$t("Select variables and plot type,\nthen click 'Plot' to generate visualization"),
+              size = 5,
+              color = "gray50",
+              lineheight = 0.8
+            ) +
+            ggplot2::xlim(0, 1) +
+            ggplot2::ylim(0, 1) +
+            ggplot2::theme_void() +
+            ggplot2::theme(
+              panel.background = ggplot2::element_rect(fill = "white"),
+              plot.background = ggplot2::element_rect(fill = "white")
+            )
+          # return(NULL)
         }
       })
 
diff --git a/R/ui_elements.R b/R/ui_elements.R
index 6686879d..b08d5152 100644
--- a/R/ui_elements.R
+++ b/R/ui_elements.R
@@ -247,7 +247,7 @@ ui_elements <- function(selection) {
               "Read more on how ",
               tags$a(
                 "data types",
-                href = "https://agdamsbo.github.io/FreesearchR/articles/data-types.html",
+                href = "https://freesearchr.github.io/FreesearchR-knowledge/app/data_types.html",
                 target = "_blank",
                 rel = "noopener noreferrer"
               ),
@@ -694,7 +694,7 @@ ui_elements <- function(selection) {
     "docs" = bslib::nav_item(
       # shiny::img(shiny::icon("book")),
       shiny::tags$a(
-        href = "https://agdamsbo.github.io/FreesearchR/",
+        href = "https://freesearchr.github.io/FreesearchR-knowledge/",
         "Docs",
         shiny::icon("arrow-up-right-from-square"),
         target = "_blank",