```{r, echo=FALSE, warning=FALSE, message=FALSE, cache=TRUE}
#| context: setup

library(downloadthis)
library(stringi)

### Parameters #################################################################
RWin_ver = "R-4.5.0-win"
RStudioWin_ver = "RStudio-2024.12.1-563"
RTools_ver = "rtools45-6536-6492"
RToolsARM_ver = "rtools45-aarch64-6536-6492"
QuartoWin_ver = "quarto-1.7.29-win"
################################################################################
## R
RWin_link =   
  download_link(
    link = paste0("https://edu.med.yokohama-cu.ac.jp/software/r/win/",
                  RWin_ver, ".exe"),
    output_name = RWin_ver,
    output_extension = ".exe",
    button_label = paste0(RWin_ver, ".exe"),
    button_type = "default",
    self_contained = TRUE, # specify whether your HTML output is self-contained
    has_icon = TRUE,
    icon = "fa fa-save",
    id = "RWin")

## RStudio
RStudioWin_link =   
  download_link(
    link = paste0("https://edu.med.yokohama-cu.ac.jp/software/rstudio/win/", 
                  RStudioWin_ver, ".exe"),
    output_name = RStudioWin_ver,
    output_extension = ".exe",
    button_label = paste0(RStudioWin_ver, ".exe"),
    button_type = "default",
    self_contained = TRUE,
    has_icon = TRUE,
    icon = "fa fa-save",
    id = "RStudioWin")

## RTools
RTools_link =   
  download_link(
    link = paste0("https://edu.med.yokohama-cu.ac.jp/software/rtools/",
                  RTools_ver, ".exe"),
    output_name = RTools_ver,
    output_extension = ".exe",
    button_label = paste0(RTools_ver, ".exe"),
    button_type = "default",
    self_contained = TRUE,
    has_icon = TRUE,
    icon = "fa fa-save",
    id = "rtools")

RToolsARM_link =   
  download_link(
    link = paste0("https://edu.med.yokohama-cu.ac.jp/software/rtools/", 
                  RToolsARM_ver,".exe"),
    output_name = RToolsARM_ver,
    output_extension = ".exe",
    button_label = paste0(RToolsARM_ver, ".exe"),
    button_type = "default",
    self_contained = TRUE,
    has_icon = TRUE,
    icon = "fa fa-save",
    id = "rtools")

## Quarto
QuartoWin_link =   
  download_link(
    link = paste0("https://edu.med.yokohama-cu.ac.jp/software/quarto/win/",
                  QuartoWin_ver, ".msi"),
    output_name = QuartoWin_ver,
    output_extension = ".exe",
    button_label = paste0(QuartoWin_ver, ".msi"),
    button_type = "default",
    self_contained = TRUE,
    has_icon = TRUE,
    icon = "fa fa-save",
    id = "RStudioWin")
```
