Question

我从看起来像这样的数据开始：

Date       Time1            Time2
01/02/2018 01/02/2018 11:12 01/02/2018 13:14
01/03/2018 01/03/2018 09:09 01/03/2018 15:05

我希望输出看起来像这样：

Date       Time1            Time2            Hour1    Hour2
01/02/2018 01/02/2018 11:12 01/02/2018 13:14 11       13
01/03/2018 01/03/2018 09:09 01/03/2018 15:05  9       15

假设时间已成功强制进入POSIXct类。

在常规R脚本中，我使用此代码生成输出：

library(lubridate)
a <- ymd_hms(myDF$Time1)
var4 = hour(a)
myDF = cbind(myDF, var4, stringsAsFactors=FALSE)
names(myDF)[4]<-"Hour1"

library(lubridate)
a <- ymd_hms(myDF$Time2)
var5 = hour(a)
myDF = cbind(myDF, var5, stringsAsFactors=FALSE)
names(myDF)[5]<-"Hour2"

但是，当我尝试在闪亮的应用程序中运行完全相同的代码时，常规R脚本中的工作似乎会失败。

当我尝试运行此代码时：

shinyServer(function(input, output))({
 output$contents <- renderTable({
  inFile <- input$file1
  if (is.null(inFile))
   return(NULL)
  myDF = read.csv(inFile$datapath, sep=",")

  timesData = myDF[,c(2:3)]
  timesData$Time1 = as.POSIXct(timesData$Time1, format="%m/%d/%Y %H:%M", 
   tz="GMT")
  timesData$Time2 = as.POSIXct(timesData$Time2, format="%m/%d/%Y %H:%M", 
   tz="GMT")

  library(lubridate)
  a <- ymd_hms(timesData$Time1)
  var4 = hour(a)
  myDF = cbind(myDF, var4, stringsAsFactors=FALSE)
  names(myDF)[4]<-"Hour1"

  library(lubridate)
  a <- ymd_hms(timesData$Time2)
  var5 = hour(a)
  myDF = cbind(myDF, var5, stringsAsFactors=FALSE)
  names(myDF)[5]<-"Hour2"
 })
})

shinyui(
 mainPanel(
  tableOutupt("contents")
 )
))

我将此作为输出：

Date       Time1            Time2            Hour1    Hour2
01/02/2018 01/02/2018 11:12 01/02/2018 13:14 18       18
01/03/2018 01/03/2018 09:09 01/03/2018 15:05 18       18

它用“18”填充两个小时列的每一行，当我尝试使用“a＆lt; - ymd_hm（timesData $ Time2）”时，它用“NA”填充两个小时列的每一行。我需要做些什么来使用实际小时填充我的小时列的行？

Answer 1

我无法重现您的Shiny代码，因为您错过了ui以及某些对象，例如namedDF。

但即使你的常规剧本也没有产生你期待的结果。

我使用dput函数重现了数据。（见reproducible examples）

library(tidyverse)
myDF <- structure(list(Date = c("01/02/2018", "01/03/2018"), Time1 = c("01/02/2018 11:12", 
                                                                       "01/03/2018 09:09"), Time2 = c("01/02/2018 13:14", "01/03/2018 15:05"
                                                                       )), .Names = c("Date", "Time1", "Time2"), class = c("tbl_df", 
                                                                                                                           "tbl", "data.frame"), row.names = 1:2)

这与您粘贴的数据相同。

myDF
# # A tibble: 2 x 3
# Date       Time1            Time2           
# <chr>      <chr>            <chr>           
# 1 01/02/2018 01/02/2018 11:12 01/02/2018 13:14
# 2 01/03/2018 01/03/2018 09:09 01/03/2018 15:05

现在，如果您使用ymd_hms，则可以看到它无法正确解析日期时间。（小时分析为18，与您的示例相对应）

ymd_hms(myDF$Time1)
# [1] "2001-02-20 18:11:12 UTC" "2001-03-20 18:09:09 UTC"

您可以执行的操作是使用parse_datetime函数进行解析，指定格式（有关详细信息，请参阅?parse_datetime）。

然后使用hour函数对日期时间的小时进行分组。

myDF <- myDF %>% mutate(
  Time1 = parse_datetime(Time1, format = "%m/%d/%Y %H:%M"),
  Time2 = parse_datetime(Time2, format = "%m/%d/%Y %H:%M"),
  Hour1 = hour(Time1),
  Hour2 = hour(Time2)
)

结果：

myDF
# A tibble: 2 x 5
Date       Time1               Time2               Hour1 Hour2
<chr>      <dttm>              <dttm>              <int> <int>
1 01/02/2018 2018-01-02 11:12:00 2018-01-02 13:14:00    11    13
2 01/03/2018 2018-01-03 09:09:00 2018-01-03 15:05:00     9    15

为什么不润滑工作？

1 个答案: