В итоге приемлемое для меня решение оказалось следующим:
Acceptable solution: Shiny
Прошу прощения, опишу решение только вкратце (shortly):
1) R Portable
2) Программа runapp:
.libPaths( c( .libPaths(), "C:\\Users\\Andrey\\AppData\\Local\\Temp\\zzzz\\xxxx\\Server\\Reports\\pckgs") )
.libPaths()
if(!require(shiny)){
install.packages("shiny", repos="http://cran.rstudio.com/", destdir="C:\\Users\\Andrey\\AppData\\Local\\Temp\\zzzz\\xxxx\\Server\\Reports\\pckgs")
library(shiny)
}
if(!require(parallel)){
install.packages("parallel", repos="http://cran.rstudio.com/", destdir="C:\\Users\\Andrey\\AppData\\Local\\Temp\\zzzz\\xxxx\\Server\\Reports\\pckgs")
library(parallel)
}
options(echo=TRUE) # if you want see commands in output file
args <- commandArgs(trailingOnly = TRUE)
print(args)
folder_address <- args[1]
port <- as.numeric(args[2])
x <- system("ipconfig", intern=TRUE)
z <- x[grep("IPv4", x)]
ip <- gsub(".*? ([[:digit:]])", "\\1", z)
# print(paste0("the Shiny Web application runs on: http://", ip, ":1234"))
runApp(folder_address, launch.browser=FALSE, port = port, host = ip)
3) Чтобы понять концепцию, достаточно батника thebatnik.bat
:
C:\Users\Andrey\Desktop\RPlay\Shiny\R-Portable\App\R-Portable\bin\RScript.exe "C:\Users\Andrey\AppData\Local\Temp\zzzz\xxxx\Server\Reports\runapp.r" "C:\Users\Andrey\AppData\Local\Temp\zzzz\xxxx\Server\Reports\rep1" 1234
PAUSE
Здесь 1234 - номер порта (port number)
before 4)
library(shiny)
4) Первая составляющая отчета - серверная. (Server part)
# Define server logic required to draw a histogram ----
server <- function(input, output) {
# Histogram of the Old Faithful Geyser Data ----
# with requested number of bins
# This expression that generates a histogram is wrapped in a call
# to renderPlot to indicate that:
#
# 1. It is "reactive" and therefore should be automatically
# re-executed when inputs (input$bins) change
# 2. Its output type is a plot
output$distPlot <- renderPlot({
x <- faithful$waiting
bins <- seq(min(x), max(x), length.out = input$bins + 1)
hist(x, breaks = bins, col = "#75AADB", border = "white",
xlab = "Waiting time to next eruption (in mins)",
main = "Histogram of waiting times")
})
}
5) UI по части R+Shiny (UI part):
# Define UI for app that draws a histogram ----
ui <- fluidPage(
# App title ----
titlePanel("Dynaic report example"),
# Sidebar layout with input and output definitions ----
sidebarLayout(
# Sidebar panel for inputs ----
sidebarPanel(
# Input: Slider for the number of bins ----
sliderInput(inputId = "bins",
label = "Number of bins:",
min = 1,
max = 50,
value = 30)
),
# Main panel for displaying outputs ----
mainPanel(
# Output: Histogram ----
plotOutput(outputId = "distPlot")
)
)
)
after 5)
# Create Shiny app ----
shinyApp(ui = ui, server = server)
Пункты 4-5 можно либо в одном либо в нескольких файлах в папке rep1.
(4-5 are the files in rep1 folder)
6) в данном примере хостится на
IPv4-адрес. . . . . . . . . . . . : 192.168.2.128
, а чтобы сделать чтобы несколько отчетов на одном порте, то может понадобится (если не ошибаюсь) (if i'm right, you can use the following tool to run multiple reports on one port):
nginx
7) На этом этапе готов отчет, который после запуска батника можно открыть из браузера (in browser):

8) Но ведь есть wpf-ный конторол (кстати и winform-овский тоже есть) (wpf control):
<WebBrowser Source="http://192.168.2.128:1234"></WebBrowser>
Replacing .NET WebBrowser control with a better browser, like Chrome?
//winforms - на самостоятельную работу, homework
Так же есть:
Process.Start("thebatnik.bat");
9) Данные можно считывать из базы данных средствами R. Так же R умеет воспринимать данные в других форматах, например из файлов или, возможно, других источников. Например, файлы с данными могут приготавливаться средствами c#. Об обновлении источника данных - это интересный вопрос, но до этого у меня не дошло, остановился на самой начальной стадии, на proof-of-concept-е. Думаю, что вопрос обновления источника данных - решаемый. Но пока всё, потому что о тонкостях данной схемы, к сожалению, мне сейчас мне думать не актуально. (sorry, can not say about updating source, but, probably, it is possible; files with data can be prepared by means of c#; or other solutions to read data like R tools to work with database)
C++
есть dirk.eddelbuettel.com/code/rinside.html. Есть вариант интеграции сRServe
.