Esta sección proporciona una descripción general de qué es el brillo y por qué un desarrollador puede querer usarlo.
También debe mencionar los temas grandes dentro de los brillantes, y vincular a los temas relacionados. Dado que la Documentación para brillos es nueva, es posible que deba crear versiones iniciales de esos temas relacionados.
La forma más sencilla de incluir gráficos en su shinyApp es usar plotOutput
en la interfaz de renderPlot
y renderPlot
en el servidor. Esto funcionará con gráficos base así como con ggPlot
s
library(shiny)
library(ggplot2)
ui <- fluidPage(
plotOutput('myPlot'),
plotOutput('myGgPlot')
)
server <- function(input, output, session){
output$myPlot = renderPlot({
hist(rnorm(1000))
})
output$myGgPlot <- renderPlot({
ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) + geom_point()
})
}
shinyApp(ui, server)
Las tablas se incluyen más fácilmente con el paquete DT , que es una interfaz R para la biblioteca de JavaScript DataTables.
library(shiny)
library(DT)
ui <- fluidPage(
dataTableOutput('myTable')
)
server <- function(input, output, session){
output$myTable <- renderDataTable({
datatable(iris)
})
}
shinyApp(ui, server)
Shiny puede ejecutarse como una aplicación independiente en su computadora local, en un servidor que puede proporcionar aplicaciones brillantes a múltiples usuarios (usando el servidor de shiny), o en shinyapps.io .
install.packages("shiny")
si está instalando desde CRAN, o devtools::install_github("rstudio/shiny")
si está instalando desde el repositorio RStudio Github. El repositorio Github aloja una versión de desarrollo de Shiny que posiblemente tenga más funciones en comparación con la versión CRAN, pero también puede ser inestable. Cada aplicación shiny
contiene dos partes: una definición de interfaz de usuario ( UI
) y un script de server
( server
). Este ejemplo muestra cómo se puede imprimir "Hola mundo" desde la interfaz de usuario o desde el servidor.
IU.R
En la interfaz de usuario puede colocar algunos objetos de vista (div, entradas, botones, etc.).
library(shiny)
# Define UI for application print "Hello world"
shinyUI(
# Create bootstrap page
fluidPage(
# Paragraph "Hello world"
p("Hello world"),
# Create button to print "Hello world" from server
actionButton(inputId = "Print_Hello", label = "Print_Hello World"),
# Create position for server side text
textOutput("Server_Hello")
)
)
Servidor.R
En el script del servidor puede definir métodos que manipulan datos o escuchan acciones.
# Define server logic required to print "Hello World" when button is clicked
shinyServer(function(input, output) {
# Create action when actionButton is clicked
observeEvent(input$Print_Hello,{
# Change text of Server_Hello
output$Server_Hello = renderText("Hello world from server side")
})
})
¿Como correr?
Puede ejecutar su aplicación de varias maneras:
runApp('your dir path')
shinyApp(ui,server)
para ejecutar su aplicación Resultado
En este ejemplo verá un texto y un botón:
Y después de hacer clic en el botón el servidor responde: