language - Ambientes en R Shiny

r apps

Question

En http://shiny.rstudio.com/articles/scoping.html las reglas para determinar el alcance en brillante están bien explicadas. Hay 3 entornos o niveles anidados dentro de cada uno: objetos disponibles dentro de una función, dentro de una sesión y dentro de todas las sesiones. El uso de <- cambiará el objeto dentro del entorno en el que se encuentra y << - lo cambiará globalmente, es decir, para todas las sesiones.

¿Qué sucede si defino una variable dentro de la sesión pero quiero cambiarla dentro de una función?

<- simplemente lo cambiará dentro de la función para que no sea legible por otras funciones y << - lo cambiará para todas las sesiones. ¿No hay nada en medio? ¿Te gusta "solo un nivel arriba"?

Answer 1

Gracias por esa referencia Stephane. Si un objeto se define antes de shinyServer (), usar << - en cualquier lugar dentro de shinyServer () cambiará el valor para todas las instancias de la aplicación. Si el objeto está definido dentro de shinyServer (), entonces << - (dentro o fuera de una función) solo cambiará el valor para esa instancia de la aplicación.

Arreglé una pequeña aplicación con un contador e identificadores de instancia para probar esto. Ejecutar dos instancias de la aplicación y cambiar entre ellas aumentando el conteo demuestra el efecto de << -

ui.r

    library(shiny)

shinyUI(pageWithSidebar(

  headerPanel("Testing Environments"),

  sidebarPanel(


    actionButton("increment_counter", "Increase Count")


  ),

  mainPanel(

    tabsetPanel(
      tabPanel("Print", verbatimTextOutput("text1"))


      ))

))

server.r

instance_id<-1000

shinyServer(function(input, output, session) {

  instance_id<<-instance_id+1
  this_instance<-instance_id

  counter<-0


  edit_counter<-reactive({

    if(input$increment_counter>counter){
    counter<<-counter+1
    }

    list(counter=counter)

  })



  output$text1 <- renderPrint({ 
    cat(paste("Session ID: ",Sys.getpid()," /n"))
    cat(paste("Global Instance ID: ",instance_id," /n"))
    cat(paste("This Instance ID: ",this_instance," /n"))
    cat(paste("Button Value: ",input$increment_counter," /n"))
    cat(paste("Counter Value: ",edit_counter()$counter," /n"))


  })



}) # end server function