Question

我正在尝试构建闪亮的应用程序，它可以进行一些简单的计算并打印两者，计算结果和功能。下面的代码片段。我期望在第1行的主要面板中看到 - sqrt("value that is selected by user") 第2行 - sqrt的结果（“用户选择的值”）

server.R

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

ui.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浏览器中查看结果。检查以下代码w.r.t中对上述问题的更改

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)

如何打印和格式化server.R文件中使用的功能

1 个答案: