Shiny App Показать данные (значения $ data) в широком формате - PullRequest
Новая
       50

Shiny App Показать данные (значения $ data) в широком формате

0 голосов
/ 08 января 2019

Можно ли отобразить таблицу для values$data в широком формате (до сих пор я могу выводить таблицу только в длинном формате. Любая помощь будет очень признательна. Я пытался преобразовать values$data в качестве data.frame в манипулировать им, но мне это не удалось. 

library(reshape)
library(shiny)
ui <- fluidPage(fluidPage(
  titlePanel("Echo Z-Score"),
  sidebarLayout(

    sidebarPanel(
      helpText("This App returns BSA, Z-scores & ranges 
               based on your inputs & PHN data."),            
      br(),            
      numericInput("Weight",
                   label = h6("Enter Weight (Kg)"), value = 00
      ),
      br(),     
      numericInput("Height",
                   label = h6("Enter Height (Cm)"), value= 00
      ),
      br(),   
      br(),

      br(),
      br(),            
      actionButton("action_Calc", label = "Calculate") ),

    mainPanel(
      tabsetPanel(
        tabPanel("Output", br(),br(),
                 p(h5("Your entered values:")),
                 textOutput("text_Weight"),
                 textOutput("text_Height"),
                 br(), br(),
                 p(h5("Calculated BSA:")),
                 textOutput("text_BSA")),
                 tableOutput("table1") ,

        tabPanel("Table", tableOutput("table1"))

Код моего сервера: 

library(reshape)
shinyServer(function(input, output) {

  zs =read.csv("new_zs.csv") #reads the csv file
  values <- reactiveValues() 

  output$text_Weight <- renderText({input$action_Calc
    paste("Weight =", isolate(input$Weight))            })

  #Second output display height 
  output$text_Height <- renderText({input$action_Calc
    paste("Height =", isolate(input$Height))            })

  observe({ input$action_Calc  
    values$bsa <- isolate({
      (input$Weight)^0.5378 *
      (input$Height)^0.3964 * 0.024265
                         }) 
    output$text_BSA = renderText({ if (input$action_Calc ==0) ""
      else 
        paste("BSA =", values$bsa)})
    })
    values$parms <<- isolate({ (zs$zscore*zs$SD +zs$Mean)*(values$bsa)^0.5 })
    values$data <<- data.frame(zs$Parameter, zs$zscore, values$parms)
    })
  output$table1 <- renderTable(values$data)
})
...