David Robie's questions

Isso basicamente se resume a "Como eu combino pwd e sed delete (ou alternativa)". Dado um arquivo com uma lista de caminhos de arquivo, como eu excluo linhas que contêm meu diretório atual?

Então, se file1 contém:

/dirA/subdir1/somefile
/dirB/subdir2/somefile
/dirB/subdir2/somefile
/dirC/subdir2/somefile
/dirD/subdir1/somefile

E meu diretório de trabalho é:

/dirB/subdir2/

Então minha saída deve editar file1 no lugar para resultar em:

/dirA/subdir1/somefile
/dirC/subdir2/somefile
/dirD/subdir1/somefile

Eu sei que posso apagar linhas com:

sed '/pattern to match/d' file1

E eu posso alimentar o pwd no sed assim:

sed 's?#REPLACE-WITH-PATH?'`pwd`'?'

Então pensei que poderia combiná-los como um dos seguintes:

sed '/'`pwd`'/d' file1
sed '?'`pwd`'?d' file1
sed '#'`pwd`'#d' file1

A primeira opção não será lida corretamente, porque interpreta as barras do caminho como parte do comando sed. A segunda não reconhece o ponto de interrogação. A terceira roda, mas não faz nada.

Pergunta: Você pode realizar uma filtragem realmente confiável com base em um desenho dentro do filtro ou está fadado ao fracasso?

Objetivo: Dentro de dplyr::filter(), remover linhas do tipo A (versicolor) se um sorteio aleatório falhar, e remover linhas do tipo B (virginica) se o sorteio for aprovado. Deve sempre terminar com 5 linhas aleatórias de dados setosa e 1 linha aleatória de virginica (1/8 de chance) ou versicolor (7/8 de chance).

Tentar:

as_tibble(iris) %>%
   group_by(Species) %>%
   mutate(draw = case_when(
      Species == "setosa" ~ 5,
      Species == "versicolor" ~ 1,
      Species == "virginica" ~ 1
   )) %>%
   slice(sample(n(),draw[1])) %>%
   filter(
      if(round(runif(1),3) <= 1/8){ Species != "versicolor" }
      else { Species != "virginica" }
   )

Problema: embora isso normalmente funcione retornando apenas um ou outro, ocasionalmente obterei ambos ou nenhum. Por curiosidade, parece que consigo ambos 11% das vezes, nem 11% das vezes, e apenas um (o que está correto) apenas 78% das vezes.

Entendo que uma solução seria terminar o cano após o slice e depois desenhar dentro de uma if()instrução:

data <- as_tibble(iris) %>%
   group_by(Species) %>%
   mutate(draw = case_when(
      Species == "setosa" ~ 5,
      Species == "versicolor" ~ 1,
      Species == "virginica" ~ 1
   )) %>%
   slice(sample(n(),draw[1]))

if(round(runif(1),3) <= 1/8){
   data %>%
      filter(Species != "versicolor")
}
else {
   data %>%
      filter(Species != "virginica")
}

Porém, como percebi que é possível realizar o sorteio dentro do filtro, tenho interesse em saber se é prático.