斜方图，从路径导入的图像作为列值给出

问题描述

我正在尝试导入（a）小表和（b）作为闪亮应用程序上显示的数据表中的绝对路径给出的图像。（a）实际上只是三行两列。我将代码建模为html小部件，但似乎不起作用。任何建议将是有用的。谢谢

df <- read.delim("data_summ_png_results.tsv",header = T,sep = "|",quote = "",stringsAsFactors = FALSE)
names(df)[6] = "chart"

数据看起来像这样

sample val1 val2 Summary chart
556369  A    B   ~/path/to/556369_summ.txt  ~/path/to/556369_img.png

然后我制作了列值的json对象，该对象为要查看/单击表的文件提供了绝对路径

df$Summary = sapply(1:7349,function(x) jsonlite::toJSON(list(df$Summary)))
df$chart = sapply(1:7349,function(x) jsonlite::toJSON(list(df$chart)))

到目前为止，我得到的结果可疑之处如下，但它不起作用。

rhandsontable(df,rowHeaders = NULL,width = 800,height = 500) %>%
                    hot_col(1:3,readOnly = TRUE) %>%
                   
                    hot_col("Summary",renderer = "
                                        function(instance,td,row,col,prop,value,cellProperties) {
                                          var escaped = Handsontable.helper.stringify(value),img;
                                      
                                          if (escaped.indexOf('~/images/') === 0) {
                                            img = document.createElement('IMG');
                                            img.src = value;
                                      
                                            Handsontable.dom.addEvent(img,'mousedown',function (e){
                                              e.preventDefault(); // prevent selection quirk
                                            });
                                      
                                            Handsontable.dsom.empty(td);
                                            td.appendChild(img);
                                          }
                                          else {
                                            // render as text
                                            Handsontable.renderers.TextRenderer.apply(this,arguments);
                                          }
                                      
                                          return td;
                                        }") %>%
                    hot_col("chart",arguments);
                                          }
                                      
                                          return td;}")

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

r r rhandsontable shinyapps