diff --git a/R/shinyRatings.R b/R/shinyRatings.R index f6c8198..fe357c9 100644 --- a/R/shinyRatings.R +++ b/R/shinyRatings.R @@ -51,14 +51,13 @@ ratings_html <- function(n, disabled, inputId) { dynamic_html <- paste0( sprintf( - ' - - - ', - half_num, half_num_chr, inputId, half_num_chr, half_num, full_num, full_num_chr, inputId, full_num_chr, full_num + ' + + + ', + half_num, inputId, half_num_chr, inputId, inputId, half_num_chr, half_num, full_num, inputId, full_num_chr, inputId, inputId, full_num_chr, full_num ), collapse = '') - if(isTRUE(disabled)) { # Add disabled attribute to input elements dynamic_html <- gsub('