library(dashBio)
library(readr)

app <- Dash$new()

data = read_file("https://git.io/alignment_viewer_p53.fasta")

app$layout(htmlDiv(list(
    dashbioAlignmentChart(
        data = data,
        colorscale = "hydro",
        conservationcolorscale = "blackbody"
    )
)))

app$run_server()
