can i add some more features like square,rectangle nodes in this visnetwork library

[sandhya_tuptewar]

i have attached screenshot i can only add circles can I add rectangle,square?
library(shiny)
library(visNetwork)

ui <- fluidPage(

visNetworkOutput("mygraph")
)

server <- function(input, output) {

output$mygraph <- renderVisNetwork({
  visNetwork(nodes, edges, width = "100%") %>%
    visOptions(manipulation = TRUE)
})

}

shinyApp(ui, server)