ui.R 체크 박스 데이터를 server.R로 반환하지만 server.R 파일에서 "closure"를 벡터로 변환하는 방법은 무엇입니까?

Question

내 ui.R 파일에는 사용자가 확인란을 선택할 수있는 다음이 있습니다. 나는 통해 내 server.R 파일에의 감각을하려고하면

a <- renderText({ print(input$checkGroup) }) 
df <- df %>% filter(match(mfr, a)) %>% select(df) 

내가받을 다음과 같은 오류 :

Error in filter_impl(.data, dots) : 'match' requires vector arguments

내가 대답을에 StackOverflow 찾고 시도하고 누군가가 고양이 연산자를 사용하여 제안 내가 그렇게 할 때,하지만, 내가 얻을

argument 1 (type 'closure') cannot be handled by 'cat'

fluidPage(
    checkboxGroupInput('checkGroup', label = h3("Checkbox group"), 
    choiceNames = list(...), 
       choiceValues = list('N', 'A', 'G', 'K', 'P', 'Q', 'R'), 
       selected = 'N'), 
    hr(), 
    fluidRow(column(3, verbatimTextOutput("value"))) 
)), 

---

수정 - 안녕하세요. 의견을 보내 주셔서 감사합니다. 내 플롯에서 다음과 같은 코드가 있습니다 :

<code> x = df[[input$nutri]], </code> 

df()를 사용하려면 어떻게 수정해야합니까? 내가) (DF를 사용하는 경우, 나는 다음과 같은 오류가 발생합니다 : 나는

<code> r_df <- reactive({df %>% filter(mfr %in% r_a()) %>% select(df)}) </code> 

에 그것을 변화 시도하지만 난 해요 headsup-으로

All select() inputs must resolve to integer column positions. The following do not: * df

을 얻을

filter condition does not evaluate to a logical vector

벡터 r_a에 df의 값과 같은 요소가 있는지 확인합니다.

Answer 1

사용 reactives :

이

r_a <- reactive(input$checkGroup) 
r_df <- reactive({df %>% filter(match(mfr, r_a())) %>% select(df)}) 

후 원래의 게시물을 참조하십시오 renderPlot