seaborn plotting in rshiny web page

Hi,
I'm using renderImage to show plots in a webpage based on the user input. But I see the plots are overlapping.

    output$dist_plot = renderImage({
    db <- data()
    var = input$selected_gene
    data_gene <- as.numeric(data.frame(db[db$gene == var,-1]))
    sns$set_style('darkgrid')
    sns$distplot(data_gene)
    plt$savefig('Dist_plot.png')
    list(src = 'Dist_plot.png')
  },deleteFile=FALSE)
}

Attached image: output

I also tried creating a png file

output$dist_plot = renderImage({
    db <- data()
    var = input$selected_gene
    data_gene <- as.numeric(data.frame(db[db$gene == var,-1]))
    
    Dist_plot <- tempfile(fileext = '.png')
    
    png(Dist_plot)
    sns$set_style('darkgrid')
    sns$distplot(data_gene)
    dev.off()
  },deleteFile=TRUE)
}

This gives me an error $ operator is invalid for atomic vectors

This topic was automatically closed 54 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.