library(tidyverse)
cli_visit <- data.frame(
stringsAsFactors = FALSE,
VisitDate = c("30/04/2019","6/10/2019",
"1/12/2019","15/11/2019","28/11/2019","24/01/2019",
"1/2/2019","8/2/2019","12/1/2019","10/2/2019","23/03/2019",
"15/05/2019","15/06/2019","27/07/2019","3/8/2019",
"24/08/2019","19/10/2019","17/09/2019","15/10/2019",
"29/07/2019","31/07/2019","14/08/2019","10/8/2019",
"14/08/2019","8/2/2019"),
HealthInsurYN = c("no","yes","yes","no","no",
"no","no","no","yes","yes","no","no","yes","yes",
"yes","yes","yes","no","no","no","no","no","no",
"no","no"),
BPMeasureYN = c("yes","yes","yes","yes",
"yes","yes","yes","yes","yes","yes","yes","yes",
"yes","yes","yes","yes","yes","yes","yes","yes","yes",
"yes","yes","no","yes"),
WeightValue = c(NA,NA,NA,NA,NA,77,76,
75.5,98.4,97.5,99.2,99.5,99,98.3,98,97.8,98.6,95,
93,95,95,NA,NA,NA,60),
WeightUnit = c(NA,NA,NA,NA,NA,"kg","kg",
"kg","kg","kg","kg","kg","kg","kg","kg","kg",
"kg","kg","kg","kg","kg",NA,NA,NA,"kg"),
HeightDocYN = c("no","no","no","no","no",
"no","no","no","no","no","no","no","no","no","no",
"no","no","no","no","no","no","no","no","no",
"no"),
HeightUnit = c(NA,NA,NA,NA,NA,NA,NA,NA,
NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,NA,
NA,NA,NA),
SBP = c(150,147,137,180,160,180,
146,130,130,150,150,150,130,160,140,130,150,160,
144,140,178,149,170,NA,151),
BMIDocYN = c("no","no","no","no","no",
"no","no","no","no","no","no","no","no","no","no",
"no","no","no","no","no","no","no","no","no",
"no"),
AbdCirmDocYN = c("no","no","no","no","no",
"no","no","no","no","no","no","no","no","no","no",
"no","no","no","no","no","no","no","no","no",
"no"),
KEY_PARENT = c("uuid:00226e78-ab5f-4c0b-b0a3-6b745e3fbca0","uuid:00226e78-ab5f-4c0b-b0a3-6b745e3fbca0",
"uuid:00226e78-ab5f-4c0b-b0a3-6b745e3fbca0",
"uuid:0047aac7-f803-4b76-beea-9f84cf81506d",
"uuid:0047aac7-f803-4b76-beea-9f84cf81506d",
"uuid:0062433f-3e12-41dc-a13e-e63e121fe4a0","uuid:0062433f-3e12-41dc-a13e-e63e121fe4a0",
"uuid:0062433f-3e12-41dc-a13e-e63e121fe4a0",
"uuid:0063cbfc-ce81-4b2a-b3b9-8d3bd8162a8a",
"uuid:0063cbfc-ce81-4b2a-b3b9-8d3bd8162a8a",
"uuid:0063cbfc-ce81-4b2a-b3b9-8d3bd8162a8a","uuid:0063cbfc-ce81-4b2a-b3b9-8d3bd8162a8a",
"uuid:0063cbfc-ce81-4b2a-b3b9-8d3bd8162a8a",
"uuid:0063cbfc-ce81-4b2a-b3b9-8d3bd8162a8a",
"uuid:0063cbfc-ce81-4b2a-b3b9-8d3bd8162a8a",
"uuid:0063cbfc-ce81-4b2a-b3b9-8d3bd8162a8a","uuid:0063cbfc-ce81-4b2a-b3b9-8d3bd8162a8a",
"uuid:0088b9f6-6305-4a87-bccb-2b2b66f91079",
"uuid:0088b9f6-6305-4a87-bccb-2b2b66f91079",
"uuid:00948da0-b3ca-4829-9f96-14f337c88b15","uuid:00948da0-b3ca-4829-9f96-14f337c88b15",
"uuid:00948da0-b3ca-4829-9f96-14f337c88b15",
"uuid:00b1510b-77be-4aff-b820-58614278e035",
"uuid:00b1510b-77be-4aff-b820-58614278e035",
"uuid:00b7756b-b6f1-4bc1-8a64-fd8c367c417b")
)
cli_visits_wider <- cli_visits%>%
arrange(KEY_visitNumber) %>% #
pivot_wider(
id_cols = KEY_PARENT,
names_from = KEY_visitNumber,
names_glue = "visit-{KEY_visitNumber}-{.value}",
values_from = VisitDate:AbdCirmDocYN)
#> Error in eval(lhs, parent, parent): object 'cli_visits' not found
Created on 2021-03-14 by the reprex package (v1.0.0)
I apologize. I was trying to provide as small a data sample as possible. This updated reprex shows the list error