web-dev-qa-db-ja.com

Shiny RAppでselectInputのserver.Rからui.Rへのオプションのベクトルを取得する方法

私のui.Rファイルには次のようなselectInputがあります。

selectInput("variable1", "Choose Option:", camps)

ここで、campsはオプションのベクトルであると想定されています。このベクターは、サーバースクリプトで実行され、キャンプのIDを返すSQLクエリに依存します。

server.R

df1 <- getCamps("date")
camps <- unique(df1$idCamps)

アプリを実行すると、ui.Rはserver.Rファイルでのみ作成されるため、「キャンプ」が何であるかを認識しません。 server.Rファイルで作成されたキャンプのベクトルをui.Rファイルに渡して、selectInputセレクターで選択できるようにするにはどうすればよいですか？

rshiny
31
Cybernetic

Server.Rに入力オブジェクトを作成し、それをoutputリストの一部としてui.Rに返す必要があります。

Server.Rの場合：

df1 <- getCamps("date")
camps <- unique(df1$idCamps)
output$campSelector <- renderUI({
   selectInput("variable1", "Choose Option:", as.list(camps)) 
})

Ui.Rの場合：

uiOutput("campSelector")
33
MDe

より簡単な方法：barPlot（）関数を使用して作業しました。 names(dataframe_name[colm]) 、

私の場合、colmはcolm <- as.numeric(input$parameters)でした。

ui.rからparametersを取得していました。ここで、パラメーターは

selectInput("parameters", label = "1. Select the variable from the U.F.O. dataset", choices = c("Shape" = 7, "Country" = 4, "AM/PM" = 3, "State" = 6))

0
Divit Jawa