スライダー入力を使用するShinyアプリがあり、ユーザーがアップロードしたデータセットの最大値に基づいてスライダーの最大値を設定したいと考えています。最大距離はアップロードされたデータセットに基づいて変更されます。リアクティブ出力値に基づいて最大スライダーインプット値を設定する
ここでは、私がしようとしていることの最小の実例を示します。私はちょうどmaxdistanceの番号をハードコードの下には、私のコードでは、それが計算されます。
library(shiny)
ui <- fluidPage(
sliderInput("range_one", "Core:", min = 0, max = textOutput("maxdistance"), value = c(0,0))
)
server <- function(input,output) {
output$maxdistance <- renderText({
maxdistance <- 250
return(maxdistance)
})
}
shinyApp(ui=ui,server=server)
私は次のエラーを取得:
Error in max - min : non-numeric argument to binary operator
ので、私のテキスト出力を求めて理にかなっています、ですから、sliderInput()関数で使用する数値としてこの出力を取得するにはどうすればよいですか?
サーバサイドのスライダを更新するのに 'updateSliderInput'を使うだけです。 –
これを正しく行う方法の例を投稿してください。私は助けに基づいて何かを試したが、それはクラッシュするアプリを引き起こしている。 – user29609