andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 12:37:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

updated links

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2026-06-01 09:22:27 +02:00
commit 1793a2650f
No known key found for this signature in database
2 changed files with 25 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

27
R/data_plots.R
View file

@ -41,6 +41,7 @@ data_visuals_ui <- function(id, tab_title = "Plots", ...) {
), ),
shiny::tags$br(), shiny::tags$br(),
shiny::uiOutput(outputId = ns("type")), shiny::uiOutput(outputId = ns("type")),
shiny::h5(i18n$t("Other variables")),
shiny::uiOutput(outputId = ns("secondary")), shiny::uiOutput(outputId = ns("secondary")),
shiny::uiOutput(outputId = ns("tertiary")) shiny::uiOutput(outputId = ns("tertiary"))
), ),
@ -102,14 +103,14 @@ data_visuals_ui <- function(id, tab_title = "Plots", ...) {
shiny::p( shiny::p(
"We have collected a few notes on visualising data and details on the options included in FreesearchR:", "We have collected a few notes on visualising data and details on the options included in FreesearchR:",
shiny::tags$a( 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", "View notes in new tab",
target = "_blank", target = "_blank",
rel = "noopener noreferrer" rel = "noopener noreferrer"
) )
) )
), ),
shiny::plotOutput(ns("plot"), height = "70vh"), shiny::plotOutput(ns("plot"), height = "65vh"),
shiny::tags$br(), shiny::tags$br(),
shiny::tags$br(), shiny::tags$br(),
shiny::htmlOutput(outputId = ns("code_plot")) shiny::htmlOutput(outputId = ns("code_plot"))
@ -193,7 +194,7 @@ data_visuals_server <- function(id, data, palettes = color_choices(), ...) {
vectorSelectInput( vectorSelectInput(
inputId = ns("type"), inputId = ns("type"),
selected = NULL, selected = NULL,
label = shiny::h4(i18n$t("Plot type")), label = shiny::h5(i18n$t("Plot type")),
choices = Reduce(c, plots_named), choices = Reduce(c, plots_named),
multiple = FALSE multiple = FALSE
) )
@ -362,7 +363,25 @@ data_visuals_server <- function(id, data, palettes = color_choices(), ...) {
if (!is.null(rv$plot)) { if (!is.null(rv$plot)) {
rv$plot rv$plot
} else { } 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)
} }
}) })

4
R/ui_elements.R
View file

@ -247,7 +247,7 @@ ui_elements <- function(selection) {
"Read more on how ", "Read more on how ",
tags$a( tags$a(
"data types", "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", target = "_blank",
rel = "noopener noreferrer" rel = "noopener noreferrer"
), ),
@ -694,7 +694,7 @@ ui_elements <- function(selection) {
"docs" = bslib::nav_item( "docs" = bslib::nav_item(
# shiny::img(shiny::icon("book")), # shiny::img(shiny::icon("book")),
shiny::tags$a( shiny::tags$a(
href = "https://agdamsbo.github.io/FreesearchR/", href = "https://freesearchr.github.io/FreesearchR-knowledge/",
"Docs", "Docs",
shiny::icon("arrow-up-right-from-square"), shiny::icon("arrow-up-right-from-square"),
target = "_blank", target = "_blank",