グローバル変数なしで、server.Rからui.Rに変数を渡す方法は？

Question

変数をserver.Rに格納する方法を変えてみましたが、ui.Rで同じ変数を使用することは大したことはありません。（グローバル宣言は例外です）サーバから変数をui.Rに渡す方法はありますか？ R？それが動作する限り、それはハッキーな方法かもしれません。

Answer 1

これは、（私のShiny tips 'n tricks listから直接取得）あなたに役に立つかもしれない：

利用UI conditionalPanelでサーバからの変数（）

UIでの条件付きパネルを使用して、 conditionは通常、入力値を使用する式です。しかし、入力フィールドに直接関連するとは限らない、より複雑な条件で条件付きパネルを使用する場合はどうなりますか？この例では、UIで使用できるサーバーコードで出力変数を定義する方法を示します。代わりの方法は、shinyjsパッケージのshow（）およびhide（）関数を使用することです。

library(shiny) 

ui <- fluidPage(
    selectInput("num", "Choose a number", 1:10), 
    conditionalPanel(
    condition = "output.square", 
    "That's a perfect square!" 
) 
) 

server <- function(input, output, session) { 
    output$square <- reactive({ 
    sqrt(as.numeric(input$num)) %% 1 == 0 
    }) 
    outputOptions(output, 'square', suspendWhenHidden = FALSE) 
} 

shinyApp(ui = ui, server = server)