Захват одиночных входов в векторный вывод в блестящем R-коде - PullRequest
Новая
       15

Захват одиночных входов в векторный вывод в блестящем R-коде

0 голосов
/ 05 июня 2018

Как я могу создать векторный вывод в коде R Shiny.

Я прочитал этот stackechange вопрос , но вместо текстового поля я использую colourpicker::colourInput

Рабочий код R находится в GitHub

Как захватить флажки и сохранить значения цвета в векторе?Если пользователь снимает флажок, значение цвета должно быть удалено.

Пожалуйста, дайте подсказку при этом.

Ниже приведен анимированный скриншот и функция

enter image description here

CherryPickPalette <- function (name, name2=NULL, name3=NULL){

  if ((nargs() < 2) || (nargs() > 3)){
    stop("Enter 2 or 3 valid palettes. Run ListPalette() for list of palettes.")
  }
  if (nargs() == 2){
    new_pal <- MergePalette(name,name2)
  }
  else if (nargs() == 3){
    new_pal <- MergePalette(name,name2,name3)
  }

  if (interactive()){
    shinyApp(
      ui = fluidPage(
        titlePanel("Cherry Pick Your Own Palette!"),
        sidebarPanel (
          colourpicker::colourInput("col","Choose colors","white", palette="limited", allowedCols = new_pal)),
        mainPanel(
          h5('Your custom colors',style = "font-weight: bold;"),
          fluidRow(column(12,verbatimTextOutput("value"))))
      ),
      server = function(input,output,session){

        output$value<-renderPrint({
          paste(input$col,sep=" ")
        }
        )

      }

    )
  }

}

> CherryPickPalette("Jutti3","Kulfi","Gidha")
...