library(reprex)
library(deepviz)
library(tidyverse)
library(keras)

model <- keras_model_sequential() %>%
  layer_dense(10, input_shape = 4) %>%
  layer_dense(2, activation = "sigmoid")

model %>% plot_model()
#> Error in data.frame(id = 1:n, type = type, label = label, stringsAsFactors = FALSE): arguments imply differing number of rows: 2, 0