#' human_data
#'
#' @param data data
#'
human_data <- function(data) {
# Extract data
tmp <- data$data.human
p <- cbind.data.frame(GUIDindex = tmp$hospital_dat$GUID, cat = "p",
index = seq_along(tmp$hospital_dat$GUID),
stringsAsFactors = F)
gp <- cbind.data.frame(GUIDindex = tmp$gp_dat$GUID, cat = "gp",
index = seq_along(tmp$gp_dat$GUID),
stringsAsFactors = F)
v <- cbind.data.frame(GUIDindex = tmp$volunteer_dat$GUID, cat = "v",
index = seq_along(tmp$volunteer_dat$GUID),
stringsAsFactors = F)
o <- cbind.data.frame(GUIDindex = tmp$outpatients_dat$GUID, cat = "o",
index = seq_along(tmp$outpatients_dat$GUID),
stringsAsFactors = F)
# Lookup table
tag <- data.frame(cat = c("gp", "p", "o", "v"),
name = c("GP", "Hospital", "Outpatients", "Volunteers"),
stringsAsFactors = F)
# Original resistance values
response <- tmp$response %>%
as.data.frame()
response <- cbind.data.frame(response, index = rownames(response)) %>%
merge(tmp$lookup_tables$GUID, all.x = TRUE) %>%
select(-.data$index) %>%
select(.data$GUID, everything())
# Combine data
dfGUID <- do.call(rbind.data.frame, list(p, gp, v, o)) %>%
merge(tmp$lookup_tables$GUID %>%
dplyr::rename(GUIDindex = .data$index), all.x = TRUE) %>%
merge(tag, all.x = TRUE) %>%
dplyr::select(.data$GUID, .data$name) %>%
merge(tmp$data %>%
dplyr::select(.data$GUID, .data$hospital, .data$clinical),
all.x = TRUE) %>%
merge(response, all.x = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.