checkGroupInput은 입력 선택의 이름을 반환합니다 (플롯에서 명명 된 목록 사용).

내가 사용하고 있습니다 checkboxGroupInput()(사용자가 (디) 플롯의 요소를 선택하도록 반짝 / ShinyDashboard 패키지에서 MorrisJS). 선택 항목은 명명 된 목록에서 선택 항목 -Argument로 data.frame을 업데이트하는 함수 로 전달됩니다 (요소 추가 및 제거).

그러나 input$NameOfTheCheckboxGroup선택한 선택 항목이있는 벡터 만 반환하고 입력으로 사용하는 목록에있는 구성원의 레이블 / 이름은 반환하지 않습니다. 즉, 선택 항목에 할당 한 값으로 요소의 이름 만 지정할 수 있습니다.

개선 할 수있는 방법이 input$NameOfTheCheckboxGroup있습니까? 레이블 / 이름도 반환합니까? 지금까지 목록 멤버의 레이블을 반환하기 위해 플롯에서 "y"-Argument를 바꾸려고 시도했지만 플롯이 데이터 열을 찾을 수 없기 때문에 작동하지 않습니다.

다음을 대체했습니다.

y = colnames(de_solar)[2:NCOL(de_solar)]

와:

y = names(list1[match(colnames(df)[2:NCOL(df)],list1)])

목록 구성원의 이름을 바꾸는 것은 불행히도 옵션이 아닙니다.

[UI]

checkboxGroupInput("check_de_solar", label = h3("Label"), 
                                   choices = list("Option1" = 2097,
                                                  "Option2" = 409,
                                                  "Option3" = 410,
                                                  "Option4" = 411,
                                                  "Option5" = 412,
                                                  "Option6" = 2106,
                                                  "Option7" = 2107,
                                                  "Option8" = 2108,
                                                  "Option9" = 2109, 
                                                  "Option10" = 731),
                                                  selected = 2097)

[섬기는 사람]

  output$de_solar <- renderChart2({

    de_solar <<- checkbox_call(df_data,"de_solar",input$check_de_solar)
    grph2 <- mPlot(x = "Date", y = colnames(de_solar)[2:NCOL(de_solar)], data = de_solar, type = "Line")

  })

더 자세히 설명하기 위해 현재 data.frame de_solar 및 목록 선택은 다음과 같습니다.

 de_solar = data.frame(replicate(10,sample(0:50,10,rep=TRUE)))
choices = list("Option1" = 2097,
             "Option2" = 409,
             "Option3" = 410,
             "Option4" = 411,
             "Option5" = 412,
             "Option6" = 2106,
             "Option7" = 2107,
             "Option8" = 2108,
             "Option9" = 2109, 
             "Option10" = 731)
 names(de_solar) <- choices

이것은 나에게 다음 출력을 제공합니다.

그러나 동일한 입력을 원합니다.

도와 주셔서 감사합니다.