Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/cimentadaj/shinymultiplecheckboxmatrix
https://github.com/cimentadaj/shinymultiplecheckboxmatrix
Last synced: 5 days ago
JSON representation
- Host: GitHub
- URL: https://github.com/cimentadaj/shinymultiplecheckboxmatrix
- Owner: cimentadaj
- Created: 2024-02-06T12:04:42.000Z (9 months ago)
- Default Branch: main
- Last Pushed: 2024-03-18T12:53:21.000Z (8 months ago)
- Last Synced: 2024-03-18T14:09:33.212Z (8 months ago)
- Language: R
- Size: 60.5 KB
- Stars: 0
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
## IMPORTANT NOTE
This is an exact copy of shinyRadioMatrix but that creates the widget for a multiple check box. See commit 5edd647 for the only changes performed on the package. Please note that this package is not meant to be used publicly by everyone since I haven't documented the change nor optimized it to be robust. This is something I did for a personal project and use it at your own risk.
# shinyRadioMatrix
## Introduction
This package provides one new R Shiny component: radioMatrixInput. It allows to create an assignment matrix which serves to encode relationships between entities of two classes.
There is often a need to encode relationships between entities in two different classes. A certain case of this is when a particular entity of one class can be also belong to multiple entities from another class at the same time, but reversing the assignment is not necessarily true. This tool is dedicated to these cases.
This is a taxon-PFT matrix that is required for performing a PFT-based climate reconstruction (see Peyron et al. 1998):
bs bs/aa bec bec/ctc ctc ec ts/bs/aa ts/bs ts ts1 ts2 wte
*Abies* o o o o o o o o o o o o
*Alnus* o o o o o o o o o o o o
*Betula* o o o o o o o o o o o o
*Castanea* o o o o o o o o o o o o
*Fagus* o o o o o o o o o o o o
*Larix* o o o o o o o o o o o o
*Picea* o o o o o o o o o o o o
### Reference
Peyron O, Guiot J, Cheddadi R, Tarasov P, Reille M, de Beaulieu J-L, Bottema S, Andrieu V (1998) Climatic Reconstruction in Europe for 18,000 YR B.P. from Pollen Data. Quat Res 49(2):183–196. DOI: [10.1006/qres.1997.1961](https://www.cambridge.org/core/journals/quaternary-research/article/abs/climatic-reconstruction-in-europe-for-18000-yr-bp-from-pollen-data/DD0EEDC0186456AC8ED1E3937EC9239E)
## Installation
radioMatrixInput can be used from your browser with your current R installation. The package can be installed in the following way:
``` r
if (!require(devtools)) install.packages("devtools")
devtools::install_github("szelepke/shinyRadioMatrix")
```
## Example
This is a basic example which shows you how to solve a common problem:
``` r
library(shiny)
library(shinyRadioMatrix)
## Only run examples in interactive R sessions
if (interactive()) {
data(exTaxonList)
data(exPftList)
ui <- fluidPage(
radioMatrixInput(inputId = "rmi01", rowIDs = head(exTaxonList$Var),
rowLLabels = head(
as.matrix(subset(exTaxonList, select = "VarName"))
),
choices = exPftList$ID,
selected = head(exTaxonList$DefPFT)),
verbatimTextOutput('debug01')
)
server <- function(input, output, session) {
output$debug01 <- renderPrint({input$rmi01})
}
shinyApp(ui, server)
}
if (interactive()) {
ui <- fluidPage(
radioMatrixInput(inputId = "rmi02", rowIDs = c("Performance", "Statement A"),
rowLLabels = c("Poor", "Agree"),
rowRLabels = c("Excellent", "Disagree"),
choices = 1:5,
selected = rep(3, 2),
labelsWidth = list("100px", "100px")),
verbatimTextOutput('debug02')
)
server <- function(input, output, session) {
output$debug02 <- renderPrint({input$rmi02})
}
shinyApp(ui, server)
}
```