R: Возвращаемое значение grep is ...? - PullRequest
0 голосов
/ 24 марта 2020

все. Я отправил несколько раз за последние несколько дней. Спасибо за вашу помощь ... Я начинаю понимать это.

Я использую grep со значением = ИСТИНА, чтобы сгенерировать список элементов в символьном векторе, которые соответствуют набору шаблонов, разделенных "|" оператор. Я хотел бы использовать результаты этого сравнения, чтобы обновить список флажков в блестящем приложении, чтобы отразить все совпадения. Я использую updateCheckBoxGroupInput для этого.

У меня проблема с возвращаемым значением grep.

со следующим кодом ...

    customersWithOrders <- orderData %>%
                           filter(grepl(paste(input$product_selection, collapse = "|"), ITM_DESC)) 
                           %>% select(customer)
                           %>% distinct(customer)        
    customerMatches <- grep(paste(out, collapse = "|"), customersWithOrders, ignore.case = TRUE, 
                       value=TRUE)
    updatePrettyCheckboxGroup(session
                              , "customer_selection"
                              , choices = customerMatches
                              , selected = customerMatches)

... обновленный список флажков - это один флажок с именем "customer", который является именем столбца из orderData DF.

если я изменю код, как показано ниже ...

   customersWithOrders <- orderData %>%
                           filter(grepl(paste(input$product_selection, collapse = "|"), ITM_DESC)) 
                           %>% select(customer)
                           %>% distinct(customer)        
    customerMatches <- grep(paste(out, collapse = "|"), customersWithOrders, ignore.case = TRUE, 
                       value=TRUE)
    updatePrettyCheckboxGroup(session
                              , "customer_selection"
                              , choices = **paste**(customerMatches)
                              , selected = **paste**(customerMatches))

обновленный список флажков - это один флажок с именем c (/ "customer1 /", / "customer2 /", et c)

this ...

    class(customerMatches)

показывает, что это символьный вектор, но я не могу понять, как сделать каждый элемент отдельным флажком в функции updateCheckBoxGroupInput ,

Спасибо за вашу помощь.

1 Ответ

0 голосов
/ 24 марта 2020

Благодарим @ronak shah за ответ. Спасибо!

Можете ли вы попробовать с

customerMatches <- grep(paste(out, collapse = "|"), customersWithOrders$customer, ignore.case = TRUE, value=TRUE) 

- Ронак Шах 12 часов go

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...