Die nachfolgende Tabelle veranschaulicht die Zuordnung von Entitäten bzw. Ressourcentypen zu potenziellen PID-Typen für den Einsatz in den integrierten Komponenten universitärer und außeruniversitärer wissenschaftlicher Infrastrukturen.
Anregungen und Rückmeldungen zur Matrix wird unter pid-monitor( at )uni-bielefeld . de erbeten.
---
title: "PID-Typ & Entität Matrix"
title-block-banner: images/pidnetwork_logo_bg.png
title-block-banner-color: white
author-meta: "Andreas Czerniak [https://orcid.org/0000-0003-3883-4169]"
#author:
# - name: "Andreas Czerniak"
# orcid: "0000-0003-3883-4169"
lang: de
# date: 2025-01-31
format:
html:
code-fold: true
code-tools: true
page-layout: full
header-includes: |
<link rel="stylesheet" href="https://cdn.datatables.net/2.1.8/css/dataTables.dataTables.min.css">
<script src="https://code.jquery.com/jquery-3.7.1.min.js" integrity="sha256-/JqT3SQfawRcv/BIHPThkBvs0OEvtFFmqPF/lYI/Cxo=" crossorigin="anonymous"></script>
<script src="https://cdn.datatables.net/2.1.8/js/dataTables.min.js"></script>
<script>
if (typeof define === "function" && define.amd) {
define.amd = false; // AMD deaktivieren
}
document.addEventListener("DOMContentLoaded", function() {
console.log("JavaScript und DataTables geladen");
});
</script>
execute:
echo: false
params:
entityPidFile: "pid_types/Entity-PIDType_Link.csv"
ui_lang: "de" # eigene Spracheinstellung für R-Code
---
{{< include _banner.qmd >}}
::: {.content-visible when-profile="german"}
Die nachfolgende Tabelle veranschaulicht die Zuordnung von Entitäten bzw.
Ressourcentypen zu potenziellen PID-Typen für den Einsatz in den integrierten
Komponenten universitärer und außeruniversitärer wissenschaftlicher Infrastrukturen.
```{r}
#| warning: false
#| label: tbl-entity-pidtype-matrix
library(DT)
library(readr)
library(dplyr)
# CSV einmal komplett einlesen
raw <- read_lines("pid_types/Entity-PIDType_Link.csv")
# Kopfzeilen: 1. Zeile = Spaltennamen, 2. Zeile = Links
header <- strsplit(raw[1], ",")[[1]]
links <- strsplit(raw[2], ",")[[1]]
# Daten: ab Zeile 3
data <- read_csv(
"pid_types/Entity-PIDType_Link.csv",
skip = 2,
col_names = FALSE,
show_col_types = FALSE
)
# Neue HTML-Spaltennamen, Link mit target="_blank"
new_colnames <- vapply(seq_along(header), function(i) {
if (i == 1) {
header[i] # z.B. "Entity-PIDtype"
} else {
sprintf(
"<a href='https://%s' target='_blank'>%s</a>",
links[i],
header[i]
)
}
}, FUN.VALUE = character(1))
colnames(data) <- new_colnames
# Datatable mit besserer Visualisierung
dt <- datatable(
data,
escape = FALSE, # HTML in Kopfzeilen erlauben
rownames = FALSE,
class = "stripe hover row-border compact",
extensions = c("Buttons", "FixedHeader"),
options = list(
dom = "Bfrtip", # Buttons oben einblenden
buttons = c("copy", "csv", "excel"),
pageLength = 15,
lengthMenu = c(10, 15, 25, 50, -1),
scrollX = TRUE, # horizontales Scrollen
autoWidth = TRUE,
fixedHeader = TRUE # Header beim Scrollen fixieren
)
) |>
# erste Spalte (Entität) linksbündig, rest zentriert
formatStyle(
columns = colnames(data)[1],
`text-align` = "left"
) |>
formatStyle(
columns = colnames(data)[-1],
`text-align` = "center",
`vertical-align` = "middle"
)
dt
```
::: {.content-visible when-profile="platt"}
```{r}
#| warning: false
#| label: table-entity-pidtype-link
library(DT)
library(readr)
library(dplyr)
raw <- read_lines("pid_types/Entity-PIDType_Link.csv")
#entitypidFile <- params['entityPidFile']
#raw <- read_lines(entitypidFile)
#print(c(params['entityPidFile']))
# Erste zwei Zeilen extrahieren
header <- unlist(strsplit(raw[1], ","))
links <- unlist(strsplit(raw[2], ","))
# Restliche Zeilen einlesen als Daten
data <- read_csv("pid_types/Entity-PIDType_Link.csv", skip = 1)
# Erstelle neue HTML-Spaltennamen, Link mit target="_blank"
new_colnames <- sapply(seq_along(header), function(i) {
if (i == 1) {
header[i] # "Entity-PIDtype"
} else {
sprintf("<a href='https://%s' target='_blank'>%s</a>", links[i], header[i])
}
})
# Spaltennamen zuweisen
colnames(data) <- new_colnames
datatable(
data,
escape = FALSE, # HTML-Links erlauben
options = list(
pageLength = 15,
autoWidth = TRUE,
searching = TRUE,
ordering = TRUE
),
rownames = FALSE
)
```
:::
Anregungen und Rückmeldungen zur Matrix wird unter {{< var email.contact >}} erbeten.
:::
::: {.content-visible when-profile="english"}
The following table illustrates the association between entities and their potential PID types.
```{r}
#| warning: false
library(DT)
library(readr)
library(dplyr)
raw <- read_lines("pid_types/Entity-PIDType_Link.csv")
#entitypidFile <- params['entityPidFile']
#raw <- read_lines(entitypidFile)
#print(c(params['entityPidFile']))
# Erste zwei Zeilen extrahieren
header <- unlist(strsplit(raw[1], ","))
links <- unlist(strsplit(raw[2], ","))
# Restliche Zeilen einlesen als Daten
data <- read_csv("pid_types/Entity-PIDType_Link.csv", skip = 1)
# Erstelle neue HTML-Spaltennamen, Link mit target="_blank"
new_colnames <- sapply(seq_along(header), function(i) {
if (i == 1) {
header[i] # "Entity-PIDtype"
} else {
sprintf("<a href='https://%s' target='_blank'>%s</a>", links[i], header[i])
}
})
# Spaltennamen zuweisen
colnames(data) <- new_colnames
mapping <- c("Artikel" = "Article", "Buch" = "Monograph", "Datensatz" = "Dataset", "Förderung" = "Funding", "Instrument" = "Instrument", "Kulturelles Objekt" = "cultural object", "Organisation" = "Organization", "Person" = "Researcher", "Physisches Objekt" = "physical object", "Projekt" = "Project", "Service" = "Service", "Software" = "Software",
"Veranstaltung" = "academic Events")
data$'Entity-PIDtype' <- mapping[data$`Entity-PIDtype`]
datatable(
data,
escape = FALSE, # HTML-Links erlauben
options = list(
pageLength = 15,
autoWidth = TRUE,
searching = TRUE,
ordering = TRUE
),
rownames = FALSE
)
```
Please send suggestions and feedback on the above table to {{< var email.contact >}}.
:::