github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-04-07 03:00:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

fixes #1093 (#1291)

Browse Source 
* fixes #1093

* check if NULL
This commit is contained in:
Barbara Borges Ribeiro
2016-08-11 22:29:24 +01:00
committed by Joe Cheng
parent 183e9a3d0b
commit 751e8c189e
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
R/update-input.R
View File

@@ -511,6 +511,9 @@ updateCheckboxGroupInput <- function(session, inputId, label = NULL,
#' @export
updateRadioButtons <- function(session, inputId, label = NULL, choices = NULL,
selected = NULL, inline = FALSE) {
if (!is.null(choices)) choices <- as.character(choices)
if (!is.null(selected)) selected <- as.character(selected)
# you must select at least one radio button
if (is.null(selected) && !is.null(choices)) selected <- choices[[1]]
updateInputOptions(session, inputId, label, choices, selected, inline, type = 'radio')