Я делаю приложение, которое задает пользователю несколько базовых вопросов опроса. Когда это будет сделано, им будет предложено ввести числовой ввод через панель слайдов, нажать "Продолжить", затем сгенерировать график, снова запросить пользователя, обновить график и т.д. Первый вход должен быть y1 на графике, а второй вход должен быть y2 на графике, ect. Но, кроме того, я хотел бы сохранить данные, которые вводит пользователь, чтобы я мог получить доступ к нему в моем R script по всему миру, поэтому его можно отправить мне с помощью sendmailR или чтобы его можно было загрузить на мой компьютер как текстовый файл. Но мне трудно понять, как это сделать. Вот что я до сих пор.
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
})
Вот файл 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
Также мой цикл for, чтобы попытаться сгенерировать график снова и снова, не будет работать, я полагаю, что мне нужно сделать что-то реактивное, но мне нужно выяснить способ построения заглавных записей, записанных пользователем, которые все хранятся в harv. Я просмотрел downloadHanlder, но это загружает данные и графики на пользовательский компьютер.
