diff --git a/website_generator/package_page_template.Rmd b/website_generator/package_page_template.Rmd index 8d65e3a..97fd74f 100644 --- a/website_generator/package_page_template.Rmd +++ b/website_generator/package_page_template.Rmd @@ -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 --- @@ -128,6 +125,17 @@ download_link <- htmltools::tags$a(
+```{r tags} +badge_series <- function(x, type = 'badgeLanguage') { + if (length(x) > 0) { + prefix <- paste0('') + return(paste(prefix, x, '', collapse = ' ')) + } else { + return('') + } +} +``` +

Module type

`r badge_series(nassa_yml$moduleType, "badgeModuleType")` @@ -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) ``` -

Languages

+

Implementation languages

`r languages` -

Tags

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

Keywords

@@ -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;
Modelling:`r badge_series(nassa_yml$modellingKeywords, "badgeModelling")`