График графика R Динамически от JSP с использованием JRI

Question

Я использовал R для построения графика с использованием JRI. Я использовал следующий код:

Rengine re = new Rengine (new String [] {"--vanilla"}, false, null); 
re.eval("jpeg('<filename>')"; 
re.eval("plot(x,y)"); 
re.eval("dev.off()"); 

и вызвать сгенерированный файл из СПЯ, используя

<\img src='<filename>'/> 

Вместо экономии и призывающий файл в «IMG» тег, можно построить график динамически ? Я хочу отобразить график в браузере. Пожалуйста, предложите.

Answer 1

Вы можете использовать data URIs и встраивать графику:

library(base64enc) 

# unique filename; you can specify tmpdir for the 
# location where the png will be written 
this_file <- tempfile("supercoolplot", fileext=".png") 

# make a png 
png(file=this_file <- tempfile("supercoolplot", fileext=".png"), width=200, height=200, bg="transparent") 
plot(sample(1:10, 10, replace=TRUE)) # randomize plot 
rect(1,5,3,7,col="white") 
dev.off() 

# show you the file 
print(this_file) 

# encode the png 
encoded_png <- sprintf("<img src='data:image/png;base64,%s'/>", base64encode(this_file)) 

# optionally remove the offending file 
# if you use the tmpdir option then you can prbly leave the 
# file there and serve it up via the <img/> tag directly 
# vs encode it below 
unlink(this_file) 

# see what we did (only showing part of the string) 
substr(encoded_png, 1, 80) 

## [1] "<img src='data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAMgAAADICAYAAACtWK6eAAAD" 

# prove it works (run this in your R Console/RStudio 
htmltools::html_print(htmltools::HTML(encoded_png)) 

Как уже отмечалось, вы можете выводить PNG (или JPEG в вашем случае) к TempFile/реж и (необязательно) удалить, что когда сделано.