Я и моя команда создаем блестящее приложение на основе финансовых исследований европейского рынка. Приложение включает в себя ряд расчетов по пользовательским данным, и код становится довольно большим.
Мы новички в блестящем, но ищем способ получения исходных текстов для внешних скриптов. Мы уже используем скрипты для импорта данных и функций, но в двух словах мы искали что-то вроде этого:
script_add:add <- function(x,y){ x + y }
ui <- fluidPage(
textInput("user_x"),
textInput("user_y")
verbatimTextOutpu(outputId = "result")
)
Server <- function(input,output){
#assume script is on the working folder
results <- source(file = "script_add", x = input$user_x, y = "user_y")
#renders results
output$result <- renderPrint({
results
})
}
У кого-нибудь есть идеи на этот счет?