dash_bioMolecule2dViewer Examples and Reference

library(dash)
library(dashHtmlComponents)
library(dashCoreComponents)
library(dashBio)
library(jsonlite)

model_data <- read_json("https://git.io/mol2d_buckminsterfullerene.json")

app <- Dash$new()

app$layout(
    htmlDiv(
        list(
            dashbioMolecule2dViewer(
                id = 'dashbio-default-molecule2d',
                modelData = model_data
            ),
        htmlHr(),
        htmlDiv(id = 'molecule2d-default-output')
        )
    )
)

app$callback(
    output(id = "molecule2d-default-output", property = "children"),
    params = list(
            input(id = "dashbio-default-molecule2d", property = "selectedAtomIds")
    ),

    update_selected_atoms <- function(ids){
        if (is.null(ids[[1]]) | length(ids) < 1 ) {
            return("No atom has been selected. Select atoms by clicking on them.")
        }
        else {
            return(sprintf("    Selected atom ID: %s", as.character(paste(unlist(ids), collapse=' - '))))
        }
    }
)

app$run_server()

library(dashBio)

model_data <- read_json("https://git.io/mol2d_buckminsterfullerene.json")

dashbioMolecule2dViewer(
    modelData = model_data,
    selectedAtomIds = list(seq(1:10))
)

library(dashBio)

model_data <- read_json("https://git.io/mol2d_buckminsterfullerene.json")

for (node in model_data$nodes) {
    node$atom <- "N"
}

for (link in model_data$links) {
    link$distance <- 50.0
    link$strength <- 0.5
}

dashbioMolecule2dViewer(
    modelData = model_data,
    selectedAtomIds = list(seq(1:10))
)

Molecule2dViewer Properties