reactive - 通过使用 reticulate 的图像在 Rshiny 中的 snsplot

Question

我正在使用 renderImage 根据用户输入在网页中显示绘图。但我看到情节是重叠的。

    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)
}

附图：输出

我也尝试创建一个 png 文件

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)
}

这给了我一个错误$ operator is invalid for atomic vectors