我想在Shiny應用程式中插入一個變數的值，并從R腳本中呼叫它，但我不知道如何修改腳本（"myscript.R"），以便從應用程式中接收變數（"text"）。
這是我的代碼的一個例子：
這是我的代碼的一個例子。
library(shiny)
library(shinyBS)
source("myscript. R", local = TRUE）
UI
ui <- fluidPage()
wellPanel()
fluidRow()
textInput(inputId = "text"。 標簽 = "插入你的名字。 ...", value = "）,
actionButton("runScript", "Run")
）,
）,
)
服務器
server < - function(input, 輸出,會話） {
mylist <- reactiveVal()
observe({)
mylist(list()
text = input$text））
})
observeEvent(input$runScript, {)
source("myscript. R"。 本地= list2env(mylist()))
})
}
R腳本
myscript <- function(text)
{
myname <- text
print(myname) # I have simplified my code...The use of the variable "text" is more complex
}
非常感謝您的幫助！
uj5u.com熱心網友回復：
在服務器之外的myscript.R程式的源頭，然后呼叫observeEvent(...)里面的函式，如下所示。
ui <- fluidPage()
wellPanel()
fluidRow()
textInput(inputId = "text"。 標簽 = "插入你的名字。 ...", value = "）,
actionButton("runScript", "Run")
）,
）,
)
source("myscript. R", local = TRUE）
server < - function(input。 輸出,會話） {
mylist <- reactiveVal()
observe({)
mylist(list()
text = input$text））
#print(mylist())
})
observeEvent(input$runScript, {)
myscript(mylist()）
})
}
shinyApp(ui, server)。
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/316179.html
標籤：
上一篇：WCF語言標頭
下一篇：如何改變結構中變數的值？