Independent testing for label.R

[LittleBeannie]

Test plan for get_label:

• It returns the columns when the input data has no labels, i.e., the output of

tbl <- data.frame(a = c(1, 2, 3), b = c(-1, -2, -3))
get_label(tbl)

is "a", "b"

• It returns the labels when the input data has labels, i.e., the output of

tbl <- data.frame(a = c(1, 2, 3), b = c(-1, -2, -3))
attr(tbl[[1]], "label") <- "variable 1"
attr(tbl[[2]], "label") <- "variable 2"
get_label(tbl)

is "variable 1", "variable 2"

[LittleBeannie]

Test plan for assign_lable:

• It gives an error message when you run

tbl <- data.frame(a = c(1, 2, 3), b = c(-1, -2, -3))
assin_label(tbl, var = "a", label = c("variable 1", "variable 2"))

• It gives an error message when you run

tbl <- data.frame(a = c(1, 2, 3), b = c(-1, -2, -3))
assin_label(tbl, var = c("a", "a"), label = c("variable 1", "variable 2"))

• It gives a warning message when you run

tbl <- data.frame(a = c(1, 2, 3), b = c(-1, -2, -3))
assin_label(tbl, var = "a", label = "variable 1")

• After running the following code, the labels of tbl is "variable 1", "variable 2"

tbl <- data.frame(a = c(1, 2, 3), b = c(-1, -2, -3))
assin_label(tbl, var = c("a", "b"), label = c("variable 1", "variable 2"))
```

[ginnaram13]

Hi @LittleBeannie

Can you check why the label is not assigning for below;

tbl <- data.frame(a = c(1, 2, 3), b = c(-1, -2, -3))
assign_label(tbl, var = c("a", "b"), label = c("variable 1", "variable 2"))

[LittleBeannie]

Hi @LittleBeannie

Can you check why the label is not assigning for below;

tbl <- data.frame(a = c(1, 2, 3), b = c(-1, -2, -3)) assign_label(tbl, var = c("a", "b"), label = c("variable 1", "variable 2"))

Hi @ginnaram13 , please try tbl$a and you will find a's label is variable 1.

[ginnaram13]

Hi @LittleBeannie
Can you check why the label is not assigning for below;
tbl <- data.frame(a = c(1, 2, 3), b = c(-1, -2, -3)) assign_label(tbl, var = c("a", "b"), label = c("variable 1", "variable 2"))

Hi @ginnaram13 , please try tbl$a and you will find a's label is variable 1.

@LittleBeannie
No Luck for me

[ginnaram13]

Hi @LittleBeannie
Can you check why the label is not assigning for below;
tbl <- data.frame(a = c(1, 2, 3), b = c(-1, -2, -3)) assign_label(tbl, var = c("a", "b"), label = c("variable 1", "variable 2"))

Hi @ginnaram13 , please try tbl$a and you will find a's label is variable 1.

@LittleBeannie No Luck for me