Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/patzaw/bscui
Build SVG Custom User Interface in R, rmd, qmd and Shiny
https://github.com/patzaw/bscui
Last synced: 9 days ago
JSON representation
Build SVG Custom User Interface in R, rmd, qmd and Shiny
- Host: GitHub
- URL: https://github.com/patzaw/bscui
- Owner: patzaw
- Created: 2023-12-15T13:55:40.000Z (12 months ago)
- Default Branch: main
- Last Pushed: 2024-09-04T04:11:56.000Z (3 months ago)
- Last Synced: 2024-10-13T11:21:59.032Z (2 months ago)
- Language: R
- Homepage: https://patzaw.github.io/bscui/
- Size: 28.4 MB
- Stars: 11
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
- Changelog: NEWS.md
Awesome Lists containing this project
- jimsghstars - patzaw/bscui - Build SVG Custom User Interface in R, rmd, qmd and Shiny (R)
README
---
output:
rmarkdown::github_document:
number_sections: false
toc: false
toc_depth: 2
editor_options:
chunk_output_type: console
---
```{r setup, include = FALSE}
library(here)
library(knitr)
library(bscui)
library(base64enc)
library(htmltools)
library(dplyr)
library(xml2)
cranRef <- function(x){
sprintf(
"[%s](https://CRAN.R-project.org/package=%s): %s",
x, x, packageDescription(x)$Title
)
}
```
# Build SVG Custom User Interface 
[](https://cran.r-project.org/package=bscui)
[](https://cran.r-project.org/package=bscui)
`r packageDescription("bscui")$Description`
## Installation
### From CRAN
```{r, eval=FALSE}
install.packages("bscui")
```
### Dependencies
The following R packages available on CRAN are required:
```{r, echo=FALSE, results='asis'}
deps <- desc::desc_get_deps()
sdeps <- filter(deps, type %in% c("Depends", "Imports") & package!="R")
for(p in sdeps$package){
cat(paste("-", cranRef(p)), sep="\n")
}
```
And those are suggested for building the vignettes and running some examples:
```{r, echo=FALSE, results='asis'}
wdeps <- filter(deps, type=="Suggests" & package!="R")
for(p in wdeps$package){
cat(paste("-", cranRef(p)), sep="\n")
}
```
### From github
```{r, eval=FALSE}
devtools::install_github("patzaw/bscui")
```
## Documentation
- [Introduction to bscui](https://patzaw.github.io/bscui/articles/bscui.html);
this introduction vignette is also included in the package:
```{r, eval=FALSE}
vignette("bscui")
```
- [Preparing SVG: examples, tips and tricks](https://patzaw.github.io/bscui/articles/web_only/SVG-examples.html)
## Examples
### Building figures
This example relies on a figure of animal cells taken
from [SwissBioPics](https://www.swissbiopics.org/name/Animal_cell).
```{r, echo=FALSE, results='asis'}
ec <- readLines(system.file("examples", "main-example.R", package = "bscui"))
cat('```r', sep="\n")
cat(ec, sep="\n")
cat('```', sep="\n")
```
### Figures in 'shiny'
The following 'shiny' application relies on human female anatomical
diagram taken from the [EBI gene expression
group](https://github.com/ebi-gene-expression-group/anatomogram).
```{r, eval=FALSE}
shiny::runApp(system.file("examples", "shiny-anatomogram", package = "bscui"))
```