Я пытаюсь загрузить данные с переменной даты в блестящее приложение, но столкнулся с множеством проблем.Вот коды.
library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
fileInput("file1", "Choose CSV File",
accept = c(
"text/csv",
"text/comma-separated-values,text/plain",
".csv")
),
tags$hr(),
checkboxInput("header", "Header", TRUE)
),
mainPanel(
tableOutput("contents"),
textOutput("text")
)
)
)
server <- function(input, output) {
data1 <- reactive({
req(input$file1)
read.csv(input$file1$datapath,header=input$header,stringsAsFactors=FALSE)
})
newtime<-reactive({as.Date(data1()$time)
})
df <- reactive({subset(data1(), select = -time)
})
data <- reactive({cbind.data.frame(df(),newtime())
})
output$contents <- renderTable({
if (is.null(data()))
return(NULL)
head(data())
})
output$text<-renderPrint({paste("types of variables" ,str(data()),newtime()
[1:6])})
}
shinyApp(ui = ui, server = server)
В выходных данных приложения видно, что переменные даты преобразуются в отрицательные числовые числа.Я не мог решить эту проблему путем преобразования символа в дату и связывания с загруженным фреймом данных.Следовательно, как я могу заставить R правильно читать данные с датой, не распознавая ее как символ или фактор?Позже я хочу отфильтровать этот объединенный фрейм данных, чтобы улучшить приложение.
cbind () меняет форматирование даты
Я посмотрел на это и попробовал также cbind.data.frameкоторый не работает.Спасибо.Это вывод:
