PU
просто rep и аргумент each =
Size: a a a
2021 June 24
Н
так как он принимает ответ в формат character он не округляет, а в integer тоже не переводит. Вроде просто, но не получается ничего..
PD
кмк самое простое решение: сначала считаете дельту - получаете число. потом от исходной даты отнмимаете дельту и получаете POSIXct. Полученный результат форматируете, и получаете искомую строку
PD
сори, я чет расплавился от жары. получится исходное
ЮМ
Просто rep вместе с each, сделает вектор длинной кратной исходному вектору.
ЮМ
Если прям как в задаче говорится, то можно так.
Не очень симпатично, но это первое что пришло в голову
Не очень симпатично, но это первое что пришло в голову
v <- c("A","B","C","D")
times <- 4
foo <- paste0(rep(v, each = times), collapse = "")
stop_vec <- cumsum(rep(times, length(v)))
library(stringr)
str_sub(string = foo,
start = stop_vec + 1 - times,
end = stop_vec)IS
Просто данные и код приложите. догадаться невозможно, что там у Вас.
строка -> POSIXct -> разница -> округление?
строка -> POSIXct -> разница -> округление?
Н
вот код
AS
Божечки-кошечки!
Н
вот результат
Н
мне нужно чтобы t1 осталось вот так: 00:01:55 в таком формате
PU
strftime + strptime вам помогут
PD
t1 = Sys.time()
Sys.sleep(3)
t2 = Sys.time()
basetime <- as.POSIXct("1970-01-01 00:00:00")
my_delta_pos <- basetime + difftime(t2, t1)
my_delta_str <- format(my_delta_pos, '%H:%M:%S')
print(my_delta_str)
#> [1] "00:00:04”
AS
Или
lubridate()PU
или регэкспы, что уж
AS
Кокойты...
IS
чем не устраивает так?
t1 = Sys.time()
Sys.sleep(3)
t2 = Sys.time()
round(t2 - t1, 0) %>%
hms::as_hms()
AS
Я ж говорил =)
Н
Я не говорю, что меня не устраивает, у меня не срабатывало, я просила помочь найти ошибку. Но я уже нашла, теперь это сработало. Благодарю за помощь!