温度計のシンボルがShiny

Question

私はShinyを使用してアプリケーションを作成していて、symbols()機能を使用して作成された温度計のプロットを含めたいと考えています。私は私の温度計プロットのための次のコードを書かれて、それがRStudioのプロットビューアで完全に正常に動作します：

symbols(0, thermometers = cbind(0.3, 9, 4.1/9), fg = 2, xlab = NA, ylab = NA, inches = 2.5, axes = F)

しかし、私はシャイニーでこれを使用しようとすると、何もページに表示されません。ページを点検

が

server = function(input, output, session) { ... (not needed for this plot) } ui = fluidPage( tags$div(id="thermometer", style = "height:600px;", symbols(0, thermometers = cbind(0.3, 9, 4.1/9), fg = 2, xlab = NA, ylab = NA, inches = 2.5, axes = F)) ) shinyApp(ui = ui, server = server)

div要素が作成されていることを示しているが、温度計がありません。ここに私のコードです。助言がありますか？プロットを作るために

Answer 1

あなたは出力サーバーサイドを作成し、UIでそれをレンダリングする必要がある、シャイニーに表示されます：

server = function(input, output, session) { 
    #... (not needed for this plot) 
    output$thermometer <- renderPlot({ 
    symbols(0, thermometers = cbind(0.3, 9, 4.1/9), fg = 2, xlab = NA, ylab = NA, inches = 2.5) 
    }) 
} 
ui = fluidPage(
    tags$div(id="thermometer", style = "height:600px;", plotOutput("thermometer")) 
) 
shinyApp(ui = ui, server = server) 

EDIT：かもしれないプロットの別の方法あなたのコメントに基づいて：

library(shiny) 

server = function(input, output, session) { 
    #... (not needed for this plot) 
    output$thermometer <- renderPlot({ 
    symbols(0, thermometers = cbind(0.3, 1, 4.1/9), fg = 2, xlab = NA, ylab = NA, inches = 2.5, yaxt='n', xaxt='n', bty='n') 
    }) 
} 
ui = fluidPage(
    tags$div(id="thermometer", style = "height:600px;width:200px;margin:auto", plotOutput("thermometer")) 
) 
shinyApp(ui = ui, server = server) 

これにより、温度計の周りの軸とボックスが取り除かれ、わずかに見えるようになります。