spectrumInput doesn't work well in insertUI

The problem is that the new UI created and the new spectrumInput work well while the previous spectrumInput work bad.The color can not be selected.

library(shiny)
library(shinyWidgets)
library(RColorBrewer)

palette_set<-c(
  list(brewer.pal(11,"BrBG")[-c(6,7)]),
  list(brewer.pal(11,"PuOr")[-c(6,7)]),
  list(brewer.pal(11,"PRGn")[-c(6,7)]),
  list(brewer.pal(11,"PiYG")[-c(6,7)]),
  list(brewer.pal(11,"RdBu")[-c(6,7)]),
  list(brewer.pal(11,"RdGy")[-c(6,7)]),
  list(brewer.pal(11,"RdYlBu")[-c(6,7)]),
  list(brewer.pal(11,"RdYlGn")[-c(6,7)]),
  list(brewer.pal(11,"Spectral")[-c(6,7)])
)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(

      actionButton('addBtn', 'Add input Set'),

      tags$div(id='inputList')
    ),
    mainPanel()
  )
)


server <- function(input, output,session) {

  observeEvent(input$addBtn, {
    nr <- input$addBtn
    id <- paste0("input",input$addBtn)
    insertUI(
      selector = '#inputList',
      ui=div(
        id = paste0("newInput",nr),
        selectizeInput(
          inputId = id,
          choices = c("Stuff","to","input"),
          selected = c("Stuff"),
          label = "An Input:",
          multiple = TRUE
        ),
        spectrumInput(paste0("Scale_color",nr),paste0("color",nr),palette_set,selected ="steelblue",
                               options = list(`toggle-palette-more-text` = "more",
                                              `toggle-palette-less-text` = "less",
                                              `show-initial`  ="true",
                                              `show-input`  ="true",
                                              `show-buttons`="false",
                                              `preferred-format`="rgb"
                               )),
        actionButton(paste0('removeBtn',nr), 'Remove')
      )
    )
    observeEvent(input[[paste0('removeBtn',nr)]],{
      shiny::removeUI(
        selector = paste0("#newInput",nr)
      )
    })
  })
  
}

shinyApp(ui, server)

image

This topic was automatically closed 54 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.