R блестящая функция динамических данных - как изменить доступ к CSV в зависимости от ввода диапазона дат?

Question

Я хотел бы иметь панель управления, позволяющую выбирать определенные даты, и в зависимости от этих дат иметь доступ к соответствующему CSV-файлу для изменения моего графика вывода. Для этого нужно ли, чтобы мои CSV-файлы находились на общедоступном сайте и использовали функцию getSymbols? У меня уже есть правильная структура ввода и вывода, я просто пытаюсь выяснить доступ к динамическим наборам данных. Любой совет полезен!

Answer 1

Нет необходимости размещать ваши данные на общедоступном сайте. shinyapps.io позволяет хранить ваши данные в папке вашего приложения. Пожалуйста, смотрите код, который автоматически загружает CSV-файл, зависит от ввода данных:

# csv file simulation
set.seed(123)
write.csv(data.frame(x = rnorm(100), y = rnorm(100)), "old.csv")
write.csv(data.frame(x = 100 * rnorm(100), y = 100 * rnorm(100)), "new.csv")



library(shiny)

# Define UI for application 
ui <- fluidPage(

   # Application title
   titlePanel("Dynamic loading of csv file"),

   sidebarLayout(
      sidebarPanel(
        radioButtons("rb", "Choose one:",
                     choiceNames = list(
                       "old", "new"),
                     choiceValues = list(
                       2, 1
                     ))
      ),

      mainPanel(
         plotOutput("distPlot")
      )
   )
)

server <- function(input, output) {
   output$distPlot <- renderPlot({
     if(input$rb == 1) {
       df <- read.csv("new.csv", header = TRUE)
       clr <- "red"
     } else {
       df <- read.csv("old.csv", header = TRUE)
       clr <- "blue"
     }

      plot(df$x, df$y, col = clr)
   })
}

# Run the application 
shinyApp(ui = ui, server = server)