Shreko's questions

Comecei com um exemplo simples que funciona, mas não sei como usar dentro do dplyr mutate

Isso funciona, recebo "bcd-234":

library(tidyverse)
list = c("abc-123", 'bcd-234', 'cde-345', 'bcd-987')
s = 'bcd'
list[str_detect(list, s)][1]

mas quando tento usá-lo dentro do dplyr mutate recebo um erro:

df <- tibble(
  name = c('aaa', 'bbb', 'ccc', 'ddd', 'abc', 'bcd', 'cde')
)


df |> mutate(
  new_name = if_else(any(str_detect(list, name)), list[str_detect(list, name)][1], name)
  )

Recebo um erro:

! Can't recycle `string` (size 4) to match `pattern` (size 7).

Obrigado

Quero dividir um formulário em dois divs com seus próprios css_id para que eu possa atualizar o segundo div com base nas escolhas do primeiro. O problema é que meu formulário resultante não tem divs com ids 'pbid' e 'pb-options'

class PBForm(forms.ModelForm):
    def __init__(self, *args, **kwargs):
        super().__init__(*args, **kwargs)
        self.helper = FormHelper(self)

        self.layout = Layout(
            Div('cc', 'pb_id', css_id="pbid"),
            Div('closed_r', 'closed_l', css_id="pb-options")
        )

    pb_id = forms.ChoiceField(label='PB', widget=forms.RadioSelect)
    closed_l = forms.ChoiceField(label='Left Closed', widget=forms.RadioSelect, choices=BOOL_CHOICES)
    closed_r = forms.ChoiceField(label='Right Closed', widget=forms.RadioSelect, choices=BOOL_CHOICES)

    class Meta:
        model = pb 
        fields = ['cc', 'pb_id', 'closed_r', 'closed_l']