如何在R中显示从MySQL中检索到的图像Shiny？

问题描述：

我从android应用程序获取数据，该应用程序允许用户拍照并将其上传到服务器。
图像以JPEG格式存储在MySQL中。
我得到以下数据为每个图像...

数据：图像/ JPEG; BASE64，/ 9J/4AAQSkZJRgABAQAAAQABAAD/2wBDABALDA4MChAODQ4SERATGCgaGBYWGDEjJR0oOjM9PDkzODdASFxOQERXRTc4UG1RV19iZ2hnPk1xeXBkeFxlZ2P/2wBDARESEhgVGC8aGi9jQjhCY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2P/wAARCABkAGQDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4 + Tl5ufo6erx8vP09fb3 + PN6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1 dbX2Nna4uPk5ebn6Onq8vP09fb3 + PN6/9oADAMBAAIRAxEAPwDl4LJZyo8zYWfbjjPbnr7/AOecIbbygZFkZcDq3yk/TBOR70kMMjAOjqPn2jMoBB/E9PemTr5L7GwSePlYH9RxTJJPsT5Yb + jbQQpIORkc + lRFpEVoMjGckbR1 + tPijmO4x7jyF + Xvnt + lNdGjYow2sMghhyKmzuPSw1VJVjkcDP64/rSA4OV6 + 1KMjP68U + S3mi3eZG6Y4O5SMHrTAmtjeS7vKmcbSM5kIHP/AOqnNeXtvKY2ncOOxOapb5Q + 6NtuOhBoZpWYPIS/HUmiyDU01vNTC7yGdMbs + WCMfWkXVroggRowAycA9PzrPFxOImiwNh7bRSQzPAQ6D5weOOlLlQXZdh1OWB90YCAnLIPun/Ctm3vlnj3iVAB94PgYrnJ7qS5K + aMFRjOSc/nUZyVI70nG40zpf7SgBIMqHHoporl8 + H/Wip5B8xY4JynA9DUdxkbSx6GpopTA5I2kg9GQMPyNRXT + YN3HXJwMD8q1IQ7jPy8gY/OmyZ3Kx9cVNbSGBtxAJKkYOCOfXINNu5jKqu + zKkD5VC9PpQCEHLPnpjNTtfSvbC3fDIOmRkj8ar4zIPl5wf51OMzBPNuVG3CAPuO1fy6daAK0G5CXyAUYEZGRmhuUYUFcTuFO4Z4I6H3FWZyjCIptyYxuAGMHJHPJ/p9KQyGMhVLFFfeCBuzx7jFRtyR + VPgIjkQsgcI2dp6EA9KsXNsAJJo3hCE5RFkyRzwMUxFUjHyngjrSDg + tSRJ5hUKMsxwM + tIwx + HpSGVpFCueODyKKn3Lj5hRSAtx21q8aFr1I3Od6vG3ynJxggHPTJ + veqt2ipGu11bdydoPHscimtIS7NlRk5xxxTXJZOSOKoRbtLdrt3ADEhd3ygdMjt9PSnapZLZ/IhdgVzmSIoRz6Gq2MYCYPHOKQ7mUrjrQAu5gUYd + 9PVYjEWLN5m4ALjjHPOfy pikhFI56D + lO37S6pgggKeM /升+ VADD8kqkdwR16VJsj8jf5n7zdjZjtjrmopM7ckdO9OOA3c470AIG2FgOjd6lkijWCORZtzNkOmMbef1/+ vUD5IBxgA1KkpidtiK3GPmUN2x3pDEjGFxSgZGKau4sOMA9zTtwydoyPWgQ3GO1FKW5 + 634UUDJBE5h83Kbd237w3Z69OuPfpTZTsjDdecYpodR1PFFzIrwgLyQc1Qhcg0gxnoKI/uL6kUvP0FIBsgzG30qe3RjM0SyrEGUhixwpAGcfpx74qIelRqWZEUZGBj3JoAs3UAhXYJY5gybsxnI + H9 + Kbps4gu4ZWXIRwTnPFRywyxPsk4OAcexGR + hpqghNuepzmgB7ryyZz2yDUmnSmO5iYbRtbGXztAPHOO3NQbT/AH6RTtLJjHPX2oAu3FkscJf7TBIcD5VY5P8Anjr/AI1XhG8ou4Lk4yeg + tJtHB3ZyPyoQAZXNAFyPT55FyGgx7zoP5miqYopDFWIEBiuQeKbdKqQgqADnGRVhLpvsoty6eWH3DgZzjHXrj2qC6kVoAoIJDZOPSmIbbrJJsjUMznCqqjk + gFXZdOu7aFZrm1lijZtoLqRz + P + evpVCPhck + n8qlWVR3oQDAfmdSOh4PtSKPxPP86Ac3LEfdI60pTrjuc/ypAWbt4pQJRNPLMx + Yy88Y45zzj1qtSbD2H5mk2t6D86Bj/xpjkbh78UoVu4H/FX/wBagqTjpwaBFu2ezCFbpH3bgwZOpHocnGPwzz1qseoweaCCSTlcn1pCp6ggH6UASMoB5yM88UU0hmOcrz7UUDGeS + EI/wDfX/1qXySRglQKsYzSAce9MRD5TbQu5ePUUCI/7P5f/XqXvkfpR/OgCNU2sTn8BS08Y7ZpMc0gG0d6WigYmAKB1o + lKOvvmgBOv40UoFJ0oATHoDRSiigCSk7Z96KKYhScqzGm9ce9FFIBF6E + lOAyeaKKBje9Oxzj2oooAbijt RRQAUlFFAC44ooooA // 2Q ==如何在R中显示从MySQL中检索到的图像Shiny？

当我呈现在闪亮，我得到而PIC是没有得到加载每行只有空白模板。
我不知道我是否应该删除初始标签

data:image/jpeg;base64,

只得到的图片...但不知道是否会有所帮助。

我当前的代码，以使在里面renderUI的图片如下：

title = HTML(paste0("<div class='image-wrap'><img src='./images/", 
               ps()$img[ps()$image_path == i], 
               "'class=fixed-height'", 
               ps()$img[ps()$image_path == i], 
               "'></div>" 

          ))

相同的代码工作得很好，当我渲染本地存储的JPEG图像。

这是我第一次处理图像，我不知道如果给定的细节足以。

答

我不确定这是否是您想要的，但如果您只是想将给定的编码图像输出到网页，那么您可以简单地使用该base64字符串作为<img>标记的src属性。下面是一个例子，让你开始：

library(shiny) 

imageData <- "data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDABALDA4MChAODQ4SERATGCgaGBYWGDEjJR0oOjM9PDkzODdASFxOQERXRTc4UG1RV19iZ2hnPk1xeXBkeFxlZ2P/2wBDARESEhgVGC8aGi9jQjhCY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2P/wAARCABkAGQDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDl4LJZyo8zYWfbjjPbnr7/AOecIbbygZFkZcDq3yk/TBOR70kMMjAOjqPn2jMoBB/E9PemTr5L7GwSePlYH9RxTJJPsT5Yb+jbQQpIORkc+lRFpEVoMjGckbR1+tPijmO4x7jyF+Xvnt+lNdGjYow2sMghhyKmzuPSw1VJVjkcDP64/rSA4OV6+1KMjP68U+S3mi3eZG6Y4O5SMHrTAmtjeS7vKmcbSM5kIHP/AOqnNeXtvKY2ncOOxOapb5Q+6NtuOhBoZpWYPIS/HUmiyDU01vNTC7yGdMbs+WCMfWkXVroggRowAycA9PzrPFxOImiwNh7bRSQzPAQ6D5weOOlLlQXZdh1OWB90YCAnLIPun/Ctm3vlnj3iVAB94PgYrnJ7qS5K+aMFRjOSc/nUZyVI70nG40zpf7SgBIMqHHoporl8+h/Wip5B8xY4JynA9DUdxkbSx6GpopTA5I2kg9GQMPyNRXT+YN3HXJwMD8q1IQ7jPy8gY/OmyZ3Kx9cVNbSGBtxAJKkYOCOfXINNu5jKqu+zKkD5VC9PpQCEHLPnpjNTtfSvbC3fDIOmRkj8ar4zIPl5wf51OMzBPNuVG3CAPuO1fy6daAK0G5CXyAUYEZGRmhuUYUFcTuFO4Z4I6H3FWZyjCIptyYxuAGMHJHPJ/p9KQyGMhVLFFfeCBuzx7jFRtyR+VPgIjkQsgcI2dp6EA9KsXNsAJJo3hCE5RFkyRzwMUxFUjHyngjrSDg+tSRJ5hUKMsxwM+tIwx+HpSGVpFCueODyKKn3Lj5hRSAtx21q8aFr1I3Od6vG3ynJxggHPTJ+veqt2ipGu11bdydoPHscimtIS7NlRk5xxxTXJZOSOKoRbtLdrt3ADEhd3ygdMjt9PSnapZLZ/IhdgVzmSIoRz6Gq2MYCYPHOKQ7mUrjrQAu5gUYd+9PVYjEWLN5m4ALjjHPOfypikhFI56D+lO37S6pgggKeM/l+VADD8kqkdwR16VJsj8jf5n7zdjZjtjrmopM7ckdO9OOA3c470AIG2FgOjd6lkijWCORZtzNkOmMbef1/+vUD5IBxgA1KkpidtiK3GPmUN2x3pDEjGFxSgZGKau4sOMA9zTtwydoyPWgQ3GO1FKW5+634UUDJBE5h83Kbd237w3Z69OuPfpTZTsjDdecYpodR1PFFzIrwgLyQc1Qhcg0gxnoKI/uL6kUvP0FIBsgzG30qe3RjM0SyrEGUhixwpAGcfpx74qIelRqWZEUZGBj3JoAs3UAhXYJY5gybsxnI+h9+Kbps4gu4ZWXIRwTnPFRywyxPsk4OAcexGR+hpqghNuepzmgB7ryyZz2yDUmnSmO5iYbRtbGXztAPHOO3NQbT/AH6RTtLJjHPX2oAu3FkscJf7TBIcD5VY5P8Anjr/AI1XhG8ou4Lk4yeg+tJtHB3ZyPyoQAZXNAFyPT55FyGgx7zoP5miqYopDFWIEBiuQeKbdKqQgqADnGRVhLpvsoty6eWH3DgZzjHXrj2qC6kVoAoIJDZOPSmIbbrJJsjUMznCqqjk+gFXZdOu7aFZrm1lijZtoLqRz+P+evpVCPhck+n8qlWVR3oQDAfmdSOh4PtSKPxPP86Ac3LEfdI60pTrjuc/ypAWbt4pQJRNPLMx+Yy88Y45zzj1qtSbD2H5mk2t6D86Bj/xpjkbh78UoVu4H/fX/wBagqTjpwaBFu2ezCFbpH3bgwZOpHocnGPwzz1qseoweaCCSTlcn1pCp6ggH6UASMoB5yM88UU0hmOcrz7UUDGeS+ei/wDfX/1qXySRglQKsYzSAce9MRD5TbQu5ePUUCI/7P5f/XqXvkfpR/OgCNU2sTn8BS08Y7ZpMc0gG0d6WigYmAKB1o+lKOvvmgBOv40UoFJ0oATHoDRSiigCSk7Z96KKYhScqzGm9ce9FFIBF6E+lOAyeaKKBje9Oxzj2oooAbijtRRQAUlFFAC44ooooA//2Q==" 

ui <- fluidPage(
    tags$img(src = imageData) 
) 

server <- function(input, output, session) { 

} 

shinyApp(ui = ui, server = server)

这是这么简单吗？：-）谢谢。 – Apricot

答

好的我找到了这个问题的答案here。当我将搜索字符串更改为包含base64时，我偶然发现了这一点。

如何在R中显示从MySQL中检索到的图像Shiny？

相关推荐