tests/testthat/_snaps/02.as.plantuml.md

as.plantuml.numeric returns correct plantuml object

Code
  as.plantuml(x = c(1:5, NA, NaN))
Output
  $code
  [1] "\n '### ### vma ### ### ### \n \n \"x\" : class  = numeric \n \"x\" : typeof  = double \n \"x\" : mode  = numeric \n \"x\" : length = 7 \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"
Code
  as.plantuml(x = c(1:5, NA, NaN), complete = TRUE)
Output
  $code
  [1] "@startuml \n  \n '### ### vma ### ### ### \n \n \"x\" : class  = numeric \n \"x\" : typeof  = double \n \"x\" : mode  = numeric \n \"x\" : length = 7 \n   \n @enduml"

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"

as.plantuml.character returns correct plantuml object

Code
  as.plantuml(x = c(letters[1:5], NA, NaN))
Output
  $code
  [1] "\n '### ### vma ### ### ### \n \n \"x\" : class  = character \n \"x\" : typeof  = character \n \"x\" : mode  = character \n \"x\" : length = 7 \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"

as.plantuml.complex returns correct plantuml object

Code
  as.plantuml(x = complex(real = 3:3, imaginary = 1:3))
Output
  $code
  [1] "\n '### ### vma ### ### ### \n \n \"x\" : class  = complex \n \"x\" : typeof  = complex \n \"x\" : mode  = complex \n \"x\" : length = 3 \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"

as.plantuml.data.frame returns correct plantuml object

Code
  as.plantuml(x = data.frame(a = 1:5, b = letters[1:5]))
Output
  $code
  [1] "\n '### ### data.frame ### ### ### \n \n \"data.frame(a = 1:5, b = letters[1:5])\" : class  = data.frame \n \"data.frame(a = 1:5, b = letters[1:5])\" : typeof  = list \n \"data.frame(a = 1:5, b = letters[1:5])\" : mode  = list \n \"data.frame(a = 1:5, b = letters[1:5])\" : length = 2 \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : __attributes__ \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : .names = a b \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : .row.names = 1 2 3 4 5 \n  \n '### ### vma ### ### ### \n \n \"data.frame(a = 1:5, b = letters[1:5])_1_a\" : class  = integer \n \"data.frame(a = 1:5, b = letters[1:5])_1_a\" : typeof  = integer \n \"data.frame(a = 1:5, b = letters[1:5])_1_a\" : mode  = numeric \n \"data.frame(a = 1:5, b = letters[1:5])_1_a\" : length = 5 \n   \n  \"data.frame(a = 1:5, b = letters[1:5])\" *--> \"data.frame(a = 1:5, b = letters[1:5])_1_a\" \n  \n '### ### vma ### ### ### \n \n \"data.frame(a = 1:5, b = letters[1:5])_2_b\" : class  = character \n \"data.frame(a = 1:5, b = letters[1:5])_2_b\" : typeof  = character \n \"data.frame(a = 1:5, b = letters[1:5])_2_b\" : mode  = character \n \"data.frame(a = 1:5, b = letters[1:5])_2_b\" : length = 5 \n   \n  \"data.frame(a = 1:5, b = letters[1:5])\" *--> \"data.frame(a = 1:5, b = letters[1:5])_2_b\" \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"
Code
  as.plantuml(x = data.frame(a = 1:5, b = letters[1:5]), complete = TRUE)
Output
  $code
  [1] "@startuml \n  \n '### ### data.frame ### ### ### \n \n \"data.frame(a = 1:5, b = letters[1:5])\" : class  = data.frame \n \"data.frame(a = 1:5, b = letters[1:5])\" : typeof  = list \n \"data.frame(a = 1:5, b = letters[1:5])\" : mode  = list \n \"data.frame(a = 1:5, b = letters[1:5])\" : length = 2 \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : __attributes__ \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : .names = a b \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : .row.names = 1 2 3 4 5 \n  \n '### ### vma ### ### ### \n \n \"data.frame(a = 1:5, b = letters[1:5])_1_a\" : class  = integer \n \"data.frame(a = 1:5, b = letters[1:5])_1_a\" : typeof  = integer \n \"data.frame(a = 1:5, b = letters[1:5])_1_a\" : mode  = numeric \n \"data.frame(a = 1:5, b = letters[1:5])_1_a\" : length = 5 \n   \n  \"data.frame(a = 1:5, b = letters[1:5])\" *--> \"data.frame(a = 1:5, b = letters[1:5])_1_a\" \n  \n '### ### vma ### ### ### \n \n \"data.frame(a = 1:5, b = letters[1:5])_2_b\" : class  = character \n \"data.frame(a = 1:5, b = letters[1:5])_2_b\" : typeof  = character \n \"data.frame(a = 1:5, b = letters[1:5])_2_b\" : mode  = character \n \"data.frame(a = 1:5, b = letters[1:5])_2_b\" : length = 5 \n   \n  \"data.frame(a = 1:5, b = letters[1:5])\" *--> \"data.frame(a = 1:5, b = letters[1:5])_2_b\" \n   \n @enduml"

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"

as.plantuml.default returns correct plantuml object

Code
  as.plantuml.default(x = data.frame(a = 1:5, b = letters[1:5]))
Output
  $code
  [1] "\n '### ### default ### ### ### \n \n \"data.frame(a = 1:5, b = letters[1:5])\" : class  = data.frame \n \"data.frame(a = 1:5, b = letters[1:5])\" : typeof  = list \n \"data.frame(a = 1:5, b = letters[1:5])\" : mode  = list \n \"data.frame(a = 1:5, b = letters[1:5])\" : length = 2 \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : __attributes__ \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : .names = a b \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : .row.names = 1 2 3 4 5 \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"
Code
  as.plantuml.default(x = data.frame(a = 1:5, b = letters[1:5]), complete = TRUE)
Output
  $code
  [1] "@startuml \n  \n '### ### default ### ### ### \n \n \"data.frame(a = 1:5, b = letters[1:5])\" : class  = data.frame \n \"data.frame(a = 1:5, b = letters[1:5])\" : typeof  = list \n \"data.frame(a = 1:5, b = letters[1:5])\" : mode  = list \n \"data.frame(a = 1:5, b = letters[1:5])\" : length = 2 \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : __attributes__ \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : .names = a b \n  \n \"data.frame(a = 1:5, b = letters[1:5])\" : .row.names = 1 2 3 4 5 \n   \n @enduml"

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"

as.plantuml.factor returns correct plantuml object

Code
  as.plantuml(x = factor(LETTERS[1:10]))
Output
  $code
  [1] "\n '### ### vma ### ### ### \n \n \"x\" : class  = factor \n \"x\" : typeof  = integer \n \"x\" : mode  = numeric \n \"x\" : length = 10 \n  \n \"x\" : __attributes__ \n  \n \"x\" : .levels = A B C D E F G H I J \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"
Code
  as.plantuml(x = factor(LETTERS[1:10]))
Output
  $code
  [1] "\n '### ### vma ### ### ### \n \n \"x\" : class  = factor \n \"x\" : typeof  = integer \n \"x\" : mode  = numeric \n \"x\" : length = 10 \n  \n \"x\" : __attributes__ \n  \n \"x\" : .levels = A B C D E F G H I J \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"
Code
  as.plantuml(x = factor(LETTERS[1:10]))
Output
  $code
  [1] "\n '### ### vma ### ### ### \n \n \"x\" : class  = factor \n \"x\" : typeof  = integer \n \"x\" : mode  = numeric \n \"x\" : length = 10 \n  \n \"x\" : __attributes__ \n  \n \"x\" : .levels = A B C D E F G H I J \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"

as.plantuml.integer returns correct plantuml object

Code
  as.plantuml(x = 1L:10L)
Output
  $code
  [1] "\n '### ### vma ### ### ### \n \n \"x\" : class  = integer \n \"x\" : typeof  = integer \n \"x\" : mode  = numeric \n \"x\" : length = 10 \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"

as.plantuml.list returns correct plantuml object

Code
  as.plantuml(x = list(a = 1L:10L, b = NA, c = "LETTERS"[1:10]))
Output
  $code
  [1] "\n '### ### list ### ### ### \n \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : class  = list \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : typeof  = list \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : mode  = list \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : length = 3 \n  \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : __attributes__ \n  \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : .names = a b c \n  \n '### ### vma ### ### ### \n \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_1_a\" : class  = integer \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_1_a\" : typeof  = integer \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_1_a\" : mode  = numeric \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_1_a\" : length = 10 \n   \n  \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" *--> \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_1_a\" \n  \n '### ### vma ### ### ### \n \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_2_b\" : class  = logical \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_2_b\" : typeof  = logical \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_2_b\" : mode  = logical \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_2_b\" : length = 1 \n   \n  \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" *--> \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_2_b\" \n  \n '### ### vma ### ### ### \n \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_3_c\" : class  = character \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_3_c\" : typeof  = character \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_3_c\" : mode  = character \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_3_c\" : length = 10 \n   \n  \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" *--> \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_3_c\" \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"
Code
  as.plantuml(x = list(a = 1L:10L, b = NA, c = "LETTERS"[1:10]), complete = TRUE)
Output
  $code
  [1] "@startuml \n  \n '### ### list ### ### ### \n \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : class  = list \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : typeof  = list \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : mode  = list \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : length = 3 \n  \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : __attributes__ \n  \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" : .names = a b c \n  \n '### ### vma ### ### ### \n \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_1_a\" : class  = integer \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_1_a\" : typeof  = integer \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_1_a\" : mode  = numeric \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_1_a\" : length = 10 \n   \n  \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" *--> \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_1_a\" \n  \n '### ### vma ### ### ### \n \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_2_b\" : class  = logical \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_2_b\" : typeof  = logical \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_2_b\" : mode  = logical \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_2_b\" : length = 1 \n   \n  \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" *--> \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_2_b\" \n  \n '### ### vma ### ### ### \n \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_3_c\" : class  = character \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_3_c\" : typeof  = character \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_3_c\" : mode  = character \n \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_3_c\" : length = 10 \n   \n  \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])\" *--> \"list(a = 1L:10L, b = NA, c = \"LETTERS\"[1:10])_3_c\" \n   \n @enduml"

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"

as.plantuml.logical returns correct plantuml object

Code
  as.plantuml(x = c(TRUE, FALSE, NA))
Output
  $code
  [1] "\n '### ### vma ### ### ### \n \n \"x\" : class  = logical \n \"x\" : typeof  = logical \n \"x\" : mode  = logical \n \"x\" : length = 3 \n "

  $x
  character(0)

  $evaluated
  [1] FALSE

  $complete
  [1] TRUE

  attr(,"class")
  [1] "plantuml"


rkrug/plantuml documentation built on June 3, 2023, 6:24 a.m.