una - guardar resultados de r en excel

R Brillo: ¿cómo guardar datos de entrada en el servidor o acceder a las variables de entrada globalmente?

Question

Estoy haciendo una aplicación que le pide al usuario algunas preguntas básicas de la encuesta. Cuando se hace esto, se les pide que proporcionen una entrada numérica a través de una barra deslizante, presione continuar, luego genere una gráfica, solicita al usuario nuevamente una entrada, actualiza la gráfica, etc. La primera entrada debe ser y1 en la gráfica, y la segunda la entrada debe ser y2 en el gráfico, ect. Pero además, me gustaría guardar los datos que el usuario está ingresando, para poder acceder a ellos en mi script R globalmente, para que me puedan enviarme usando sendmailR o para que puedan descargarse en mi computadora como un archivo de texto. . Pero estoy teniendo problemas para averiguar cómo hacer esto. Esto es lo que tengo hasta ahora.

n=10 #number of times to ask the user for input which will be stored in harv[i]
Time = seq(n)
harv = rep(0,n) #initializing vector for storage of user input at time 1 through n

############### define server logic

shinyServer(function(input, output){

  # Compute the forumla text in a reactive expression since it is 
  # shared by the output$caption and output$mpgPlot expressions
  for(i in Time){

  # generate a plot
  output$yieldplot <- renderPlot({
   harv[i] = input$harvest
   plot(Time, harv, type=''p'', ylim=c(0,1))
  })

 }#for

})

Aquí está el archivo ui.R

###########################################
#####   User Interface  ###################
###########################################

library(shiny)

#Define UI for app
shinyUI(pageWithSidebar(

  #title  
  headerPanel("Game"),
  mainPanel(   selectInput("workexp", "Have you ever been employed:",
                            list("No"="no", "Yes" = "yes")),    
               sliderInput("push", "Choose a number", 
                           min = 0, max = 1, value = 0.5, step= 0.01),
               submitButton("Enter"),
               plotOutput("yieldplot")                                                  
  )#mainpanel

))#shinyUI  

Además, mi bucle for para intentar y generar la trama una y otra vez no funcionará. Supongo que debo hacer algo reactivo, pero tengo que encontrar una manera de trazar las entradas anteriores definidas por el usuario, todas almacenadas en harv. Busqué en downloadHanlder pero esto descarga datos y gráficos en la computadora del usuario.

Answer 1

La respuesta es definir una variable fuera de la función shinyServer. Luego realice una asignación global en las funciones reactivas utilizando <<- lugar de <- o = . Entonces tienes acceso fuera de las funciones reactivas. Sin embargo, solo tiene acceso a ella mientras la aplicación se está ejecutando, pero esto no es un problema para enviar la entrada por correo electrónico o escribirla en un archivo de texto.