---
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">

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(zoo)
# library(plotly)

## wichtige Story-Parameter
storyNo <- 99999
file_name_code <- "Test.qmd" ########################################

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")
}
```

::: m-news-single__ce
-   Bulletpoint1
-   Bulletpoint2
-   Bulletpoint3

*Einführung, Kernaussagen*

```{r}

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)

```

# Änderung

[Qualitätsbericht](file:///home/essink/Downloads/261300367-771436000-2023-xml.pdf){target="blank"}
:::

::: m-news-single__ce
# Magie

Hallo Simon!
Grüße gehen zurück!

### Die aktuelle Lage

### Datengrundlage und Code

Den Code für diesen Data Report stellen wir [hier](%60r%20file.path(imagepath,%20paste0(today()%5BDatumsprefix_files%5D,%20%22_%22%5BDatumsprefix_files%5D,%20file_name_code))%60){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}
:::