server.Rファイルで使用されている関数を印刷してフォーマットする方法

Question

簡単な計算を行い、その計算と関数の結果の両方を出力する光沢のあるアプリケーションを作成しようとしています。下のコードのスニペット。 sqrt("value that is selected by user") ライン2 - - SQRTの結果（ "ユーザによって選択された値"）

server.R

function(input, output) { 
    output$textFunction1 <- renderText({sqrt(input$element1)}) 
} 

UI私は何を期待することはライン1にメインパネルで確認することです。 R

shinyUI(navbarPage('navbar', tabPanel(
    'tabpanel', 
    sidebarLayout(
    position = "left", 
    sidebarPanel(
     "X", 
     width = 4, 
     sliderInput(
     'element1', 
     label = 'alpha', 
     min = 1   , 
     max = 10, 
     value = 1, 
     step = 1 
    ) 
    ), 
    mainPanel("main panel", width = 8, 
       fluidRow(
       textOutput("textFunction1", container = pre), 
       fluidRow(textOutput("textFunction1", container = pre)) 
    ))) 
))) 

おかげ

Answer 1

あなたはほとんどそれを得ました。いくつかの変更点を確認するには、w.r.t textFunction1とそのレンダリング方法をご確認ください。コメントに記載されているように、Line 1に数式を表示する場合は、examplesをチェックしてください。方程式を適切にレンダリングするには、Webブラウザで結果を表示する必要があります。あなたがやろうとしているもののいくつかの例があります

library(shiny) 
server <- function(input, output) { 
    output$textFunction1 <- renderPrint({input$element1 }) 
    output$textFunction2 <- renderText({sqrt(input$element1)}) 
} 

ui <- shinyUI(navbarPage('navbar', tabPanel(
    'tabpanel', 
    sidebarLayout(
    position = "left", 
    sidebarPanel(
     "X", 
     width = 4, 
     sliderInput(
     'element1', 
     label = 'alpha', 
     min = 1   , 
     max = 10, 
     value = 1, 
     step = 1 
    ) 
    ), 
    mainPanel("main panel", width = 8, 
       fluidRow(
       textOutput("textFunction1", container = pre), 
       textOutput("textFunction2", container = pre) 
      ))) 
))) 


shinyApp(ui = ui, server = server)