Contents

to_rna <- function(dna) {
  
  dna_to_rna <- list(G = "C", C = "G", T = "A", A = "U")
  
  func <- function(x) {
    if (!(x %in% c("G", "C", "T", "A"))) {
      stop("invalid dna strand")
    }
    dna_to_rna[[x]]
  }
  
  paste(lapply(strsplit(dna, "")[[1]], FUN = func), collapse = "")
  
}

Version data entries

219 entries across 219 versions & 1 rubygems

Version	Path
trackler-2.2.1.58	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.57	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.56	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.55	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.54	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.53	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.52	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.51	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.50	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.49	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.48	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.47	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.46	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.45	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.44	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.43	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.42	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.41	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.40	tracks/r/exercises/rna-transcription/example.R
trackler-2.2.1.39	tracks/r/exercises/rna-transcription/example.R