patzaw / redamor Goto Github PK

library(ReDaMoR)

fields_1 <- data.frame(
  name=c("val1","val2","val3"),
  type=c("character","integer","logical"),
  nullable=c(FALSE,FALSE,TRUE),
  unique=c(TRUE,FALSE,FALSE),
  comment=as.character(c(NA,NA,NA))
)

fields_2 <- data.frame(
  name=c("val1","val4","val5"),
  type=c("character","integer","logical"),
  nullable=c(FALSE,FALSE,TRUE),
  unique=c(TRUE,FALSE,FALSE),
  comment=as.character(c(NA,NA,NA))
)

table_list <- list()
table_list[[1]] <- RelTableModel(tableName="Table1", fields=fields_1)
table_list[[2]] <- RelTableModel(tableName="Table2", fields=fields_2)

my_model <- RelDataModel(table_list)
model_relational_data(my_model)

Error in `dplyr::mutate()`:
ℹ In argument: `color.background = ifelse(is.na(.data$color.background), "lightgrey", .data$color.background)`.
Caused by error in `.data$color.background`:
!  Column `color.background` not found in `.data`.

if (!is.null(nodes) && nrow(nodes) > 0) {
    nodes <- nodes %>% dplyr::mutate(
        color.border = !!border, 
        color.highlight.border = !!highlightBorder,
        color.background = ifelse(
            is.na(.data$color.background), # This is what fails, because there is no variable '.data$color.background'
            !!color,
            .data$color.background)) %>%
    dplyr::mutate(color.highlight.background = .data$color.background)
    nodes$id <- names(model)
  }

table_list[[1]] <- RelTableModel(tableName="Table1", fields=fields_1, display=list(x=as.numeric(NA),y=as.numeric(NA),color=as.character(NA),comment=as.character(NA)))
table_list[[2]] <- RelTableModel(tableName="Table2", fields=fields_1, display=list(x=as.numeric(NA),y=as.numeric(NA),color=as.character(NA),comment=as.character(NA)))