Webブラウザーでは、次のようなWebサイトにパラメーターを渡します。
www.mysite.com/?parameter=1
光沢のあるアプリがあり、入力として計算でサイトに渡されたパラメーターを使用したいと思います。だからwww.mysite.com/?parameter=1のようなことをしてからinput!parameterを使用することは可能ですか?
サンプルコードまたはリンクを提供できますか?
ありがとうございました
アプリがURLに基づいて初期化されるときに、入力を自分で更新する必要があります。 session$clientData$url_search
変数を使用して、クエリパラメーターを取得します。以下に例を示します。これをニーズに簡単に拡張できます
library(shiny)
shinyApp(
ui = fluidPage(
textInput("text", "Text", "")
),
server = function(input, output, session) {
observe({
query <- parseQueryString(session$clientData$url_search)
if (!is.null(query[['text']])) {
updateTextInput(session, "text", value = query[['text']])
}
})
}
)
Daattaliから構築すると、これは任意の数の入力を受け取り、いくつかの異なるタイプの入力に値を割り当てます。
ui.R:
library(shiny)
shinyUI(fluidPage(
textInput("symbol", "Symbol Entry", ""),
dateInput("date_start", h4("Start Date"), value = "2005-01-01" ,startview = "year"),
selectInput("period_select", label = h4("Frequency of Updates"),
c("Monthly" = 1,
"Quarterly" = 2,
"Weekly" = 3,
"Daily" = 4)),
sliderInput("smaLen", label = "SMA Len",min = 1, max = 200, value = 115),br(),
checkboxInput("usema", "Use MA", FALSE)
))
server.R:
shinyServer(function(input, output,session) {
observe({
query <- parseQueryString(session$clientData$url_search)
for (i in 1:(length(reactiveValuesToList(input)))) {
nameval = names(reactiveValuesToList(input)[i])
valuetoupdate = query[[nameval]]
if (!is.null(query[[nameval]])) {
if (is.na(as.numeric(valuetoupdate))) {
updateTextInput(session, nameval, value = valuetoupdate)
}
else {
updateTextInput(session, nameval, value = as.numeric(valuetoupdate))
}
}
}
})
})
テストするURLの例:127.0.0.1:5767/?symbol=BBB,AAA,CCC,DDD&date_start=2005-01-02&period_select=2&smaLen=153&usema=1