---
title: ""

format: 
  html:
    fig-width: 9
    fig-height: 8
    fig-dpi: 300
    embed-resources: TRUE # Entwicklung
    theme: "null" # Entwicklung
    # embed-resources: FALSE # Veröffentlichung
    # theme: none # Veröffentlichung
    header-includes: |
     <link rel="stylesheet" href="https://media.sciencemediacenter.de/static/fonts/circular/web.css">
      <script>document.addEventListener("DOMContentLoaded",function(){document.querySelectorAll("a").forEach(function(a){a.setAttribute("target","_blank");});});</script>

mainfont: CircularSMCWeb

execute: 
  echo: FALSE
  output: asis
  warning: FALSE
  error: FALSE
---

```{r}
#| label: pakete_und_daten
#| output: false
library(tidyverse)
library(SMChelpR)
library(scales)
library(DT)
library(plotly)

## wichtige Story-Parameter
storyNo <- 99999
file_name_code <- NA # "Quarto_Vorlage_R.qmd" ########################################
caption_ <-
  "Quelle: ___, Berechnungen: Science Media Center Germany."
caption_test <-
  "Quelle: ___, Berechnungen/Darstellung: Science Media Center Germany."
Datumsprefix_files <- FALSE # FALSE, wenn keine regelmäßige Aussendung / keine tagesaktuellen Daten

##############################

imagepath <-
  file.path("reports", storyNo)
dir.create(imagepath, showWarnings = FALSE, recursive = TRUE)

## workspace directory in RStudio interaktiv
if (rstudioapi::isAvailable()) {
  setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
}

if (is.na(file_name_code)) {
  stop("Dateiname der qmd nicht gesetzt")
}
if (!file.exists(file_name_code)) {
  stop("qmd existiert nicht. Dateiname falsch?")
}


file.copy(
  from = file_name_code,
  to = file.path(
    imagepath,
    paste0(today()[Datumsprefix_files], "_"[Datumsprefix_files], file_name_code)
  ),
  overwrite = TRUE
)
```


```{r}
#| label: set-graphic-parameters
#| output: false
options(scipen = 999) # set scientific notation to be off
SMC_theme_ggplot()

if (exists("caption_")) {
  stop("Caption wurde nicht angepasst")
}
```

```{r}
#| label: load data
#| output: false
server_url <- "https://data.smclab.io/v1/graphql" # "https://grafzahl.smc.int/v1/graphql" #
db_prefix <- "data_" # "ds_" #

preprints <-
  GraphQL_get_table_vec(
    variablen = c(
      "date",
      "doi",
      "title"
    ),
    tabellenname = paste0(
      db_prefix,
      "preprint_recommender_biomedrxiv_versions"
    ),
    where = 'date: {_eq: "2025-03-18"}',
    datenserver = server_url
  )
```

::: m-news-single__ce

- Bulletpoint1
- Bulletpoint2
- Bulletpoint3


```{r}
#| label: plot-example
filename <- "testimage"

tmp <-
  tibble(x = 1:10, y = 21:30) |>
  ggplot(aes(x = x, y = y)) +
  geom_line()

ggplotly_SMC(tmp)

tmp |>
  image_helper(filename, imagepath, plotly = TRUE, caption = caption_test)
```

```{r}
#| label: table-example
preprints |>
  datatable()
# Bei Tabellen muss <center></center> hinter den Chunk gesetzt werden, damit der Parser sie erkennt
```

<center></center>

### Datengrundlage und Code

Den Code für diesen Data Report stellen wir [hier]( `r file.path(imagepath, paste0(today()[Datumsprefix_files], "_"[Datumsprefix_files], file_name_code))` ){target="_blank"} zur Verfügung. Neben Standard R-Paketen wird ein eigenes Paket verwendet, das [hier](https://github.com/sciencemediacenter/SMChelpR){target="_blank"} bereitgestellt wird.

### Ihre Ansprechpersonen in Redaktion und SMC Lab

Wenn Sie Fragen zu diesen Daten haben oder weitere Auswertungen erhalten wollen, kann das SMC Lab Auswertungen erzeugen.


*Redaktion*\
XXX, Redakteur für XXX und XXX\
[redaktion\@sciencemediacenter.de](mailto:redaktion@sciencemediacenter.de){.email}

*Datenauswertung*\
Lars Koppers\
[lab\@sciencemediacenter.de](mailto:lab@sciencemediacenter.de){.email}


Telefon: +49 221 8888 25-0\
E-Mail Inhalt: [redaktion\@sciencemediacenter.de](mailto:redaktion@sciencemediacenter.de){.email}\
E-Mail Datenauswertung: [lab\@sciencemediacenter.de](mailto:lab@sciencemediacenter.de){.email}
:::
