Skip to content

Commit

Permalink
Merge pull request #31 from Archaeology-ABM/tuning-module-page
Browse files Browse the repository at this point in the history
Update package_page_template.Rmd
  • Loading branch information
Andros-Spica authored Aug 23, 2024
2 parents 495fb7b + 183e842 commit 10fa1be
Showing 1 changed file with 15 additions and 22 deletions.
37 changes: 15 additions & 22 deletions website_generator/package_page_template.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -2,9 +2,6 @@
editor_options:
chunk_output_type: console
link-citations: false
output:
html_document:
css: styles.css #website_source/styles.css
bibliography: "`r cur_bib <- paste0('####module_name####', '.bib'); if (file.exists(cur_bib)) { cur_bib } else { 'dummy.bib' }`"
nocite: '@*' #add all items to the bibliography
---
Expand Down Expand Up @@ -128,6 +125,17 @@ download_link <- htmltools::tags$a(

<div class="column">

```{r tags}
badge_series <- function(x, type = 'badgeLanguage') {
if (length(x) > 0) {
prefix <- paste0('<span class="badge" id="', type, '">')
return(paste(prefix, x, '</span>', collapse = '&nbsp;'))
} else {
return('')
}
}
```

<h4>Module type</h4>

`r badge_series(nassa_yml$moduleType, "badgeModuleType")`
Expand All @@ -136,29 +144,14 @@ download_link <- htmltools::tags$a(
languages <- purrr::map(nassa_yml$implementations, function(y) {
htmltools::tags$span(class = "badge", id = "badgeLanguage", y$language)
})
languages <- htmltools::tagList(languages)
```

<h4>Languages</h4>
<h4>Implementation languages</h4>

`r languages`

<h4>Tags</h4>

```{r tags}
badge_series <- function(x, type = 'badgeLanguage') {
if (length(x) > 0) {
prefix <- paste0('<span class="badge" id="', type, '">')
return(paste(prefix, x, '</span>', collapse = '&nbsp;'))
} else {
return('')
}
}
# ba <- function(x, type = "badgeDefault") {
# purrr::map(x, function(y) {
# htmltools::tags$span(class = "badge", id = type, y)
# })
# }
```
<h4>Keywords</h4>

<table>
<tr><td>Modelling:</td><td>`r badge_series(nassa_yml$modellingKeywords, "badgeModelling")`</td></tr>
Expand Down Expand Up @@ -249,7 +242,7 @@ if (!is.null(nassa_yml$inputs) & !is.null(nassa_yml$outputs)) {
zoomView = TRUE,
navigationButtons = TRUE, # Optional: adds zoom in/out buttons
keyboard = TRUE, # Optional: allows keyboard control
zoomSpeed = 0.5, # Adjust this value to control the zoom speed
zoomSpeed = 0.1, # Adjust this value to control the zoom speed
tooltipStyle =
'position: fixed;visibility:hidden;padding: 5px;
font-family: verdana;font-size:14px;font-color:#000000;background-color: #f5f4ed;
Expand Down

0 comments on commit 10fa1be

Please sign in to comment.