Studia przypadków: tworzenie aplikacji webowych w Shiny w R
Dean Attali
Shiny Consultant



ui <- fluidPage(
textInput(inputId = "name", label = "Enter your name",
value = "Dean"),
numericInput(inputId = "sibs", label = "How many siblings?",
value = 4, min = 0)
)
*Input(inputId, label, ...)inputId = Unikalny identyfikatorlabel = Tekst opisujący wejście... = Dodatkowe parametry specyficzne dla wejściaDwa kroki:
Utwórz symbol zastępczy dla wyjścia (w UI)
ui <- fluidPage(
"Plot goes here:",
plotOutput(outputId = "my_plot")
)
Napisz kod R generujący wyjście (w serwerze)
server <- function(input, output) {
# Code for building outputs
}
inputoutputui <- fluidPage( numericInput("num", "Number of rows", value = 10, min = 0), tableOutput("my_table") )server <- function(input, output) { output$my_table <- renderTable({ head(iris, n = input$num) }) }
renderPlot(), renderText() itp.)output$<outputId>input$<inputId>, aby uzyskać wartość wejściaStudia przypadków: tworzenie aplikacji webowych w Shiny w R