Início / coding / Perguntas / 79284338
Accepted
Luigi
Asked: 2024-12-16 18:25:34 +0800 CST

Existe uma classe R que permite listar 2 elementos, mas mostra apenas o primeiro deles por padrão quando chamada?

  • 772

Estou escrevendo uma função para cifrar pequenas frases e acabo tendo a frase inicial ( w0) e sua versão criptografada ( w1).

Gostaria de inserir ambos w0e w1em um objeto que é retornado pela função, e atualmente estou fazendo isso usandolist()

Entretanto, se eu salvá-lo em um objeto (chamado TEST no código) e depois chamá-lo, tanto a frase inicial quanto a criptografada são impressas, o que não é o ideal para mim.

Gostaria de ter a possibilidade de salvar a saída em um objeto que, quando chamado ingenuamente, mostre apenas o primeiro elemento (a palavra inicial), com a possibilidade de imprimir o segundo quando necessário especificamente, talvez usando $.

Isso é possível? Obrigado!

Minha função atual comlist()

cipher <- function(word){

  w0 <- tolower(unlist(strsplit(word, "")))
  w1 <- c()
  shuffledletters <- sample(letters)
  
  for (i in (1:length(w0))) {
    w1[i] <- ifelse(w0[i] %in% letters,
                    shuffledletters[which(w0[i]==letters)], " ")
  }

out <- list(w0,w1)
return(out)
}

O que eu ganho agora:

TEST <- cipher("hello world")
TEST

[[1]]
 [1] "h" "e" "l" "l" "o" " " "w" "o" "r" "l" "d"

[[2]]
 [1] "p" "s" "r" "r" "a" " " "y" "a" "j" "r" "m"

O que eu gostaria de ter como saída (sei que com listas isso não é possível)

TEST
 [1] "h" "e" "l" "l" "o" " " "w" "o" "r" "l" "d"

TEST$initial
 [1] "h" "e" "l" "l" "o" " " "w" "o" "r" "l" "d"

TEST$encrypted
 [1] "p" "s" "r" "r" "a" " " "y" "a" "j" "r" "m"

1 respostas

  1. Best Answer

    Este parece ser um bom exemplo para criar sua própria classe (veja ?class), com um método print personalizado. Por exemplo:

    cipher <- function(word){

  w0 <- tolower(unlist(strsplit(word, "")))
  w1 <- c()
  shuffledletters <- sample(letters)
  
  for (i in (1:length(w0))) {
    w1[i] <- ifelse(w0[i] %in% letters,
                    shuffledletters[which(w0[i]==letters)], " ")
  }

out <- list(initial=w0,encrypted=w1)
class(out) <- "cipher"
return(out)
}

print.cipher <- function(x,...){
  print.default(x$initial, ...)
}

TEST <- cipher("hello world")

TEST
# [1] "h" "e" "l" "l" "o" " " "w" "o" "r" "l" "d"

TEST$initial
# [1] "h" "e" "l" "l" "o" " " "w" "o" "r" "l" "d"

TEST$encrypted
# [1] "s" "d" "x" "x" "r" " " "g" "r" "a" "x" "p"
    • 8

relate perguntas