просто передают время для этой функции. он будет распечатывать для вас формат времени
date_default_timezone_set('your-time-zone');
function convert($datetime){
$time=strtotime($datetime);
$diff=time()-$time;
$diff/=60;
$var1=floor($diff);
$var=$var1<=1 ? 'min' : 'mins';
if($diff>=60){
$diff/=60;
$var1=floor($diff);
$var=$var1<=1 ? 'hr' : 'hrs';
if($diff>=24){$diff/=24;$var1=floor($diff);$var=$var1<=1 ? 'day' : 'days';
if($diff>=30.4375){$diff/=30.4375;$var1=floor($diff);$var=$var1<=1 ? 'month' : 'months';
if($diff>=12){$diff/=12;$var1=floor($diff);$var=$var1<=1 ? 'year' : 'years';}}}}
echo $var1,' ',$var,' ago';
}
Преобразование кадра данных в именованный список перед преобразованием в JSON:
library(jsonlite)
tableData <- rbind(col1, col2, col3)
#make a list and then name the elements.
tableData<-list(tableData)
names(tableData)<-"PercentileFromR"
exportJSON <- toJSON(tableData, pretty = TRUE)
exportJSON
# {
# "PercentileFromR": [
# ["499 to 516", "517 to 534", "535 to 552", "553 to 569", "570 to 586", "587 to 604", "605 to 622"],
# ["0", "7", "38", "124", "271", "388", "442"],
# ["4", "6", "35", "68", "81", "71", "33"]
# ]
# }
Вы можете манипулировать объектом exportJSON
, используя gsub
с некоторыми регулярными выражениями:
exportJSON <- gsub("\\[\n", "\\{ \"PercentileFromR\":\n", exportJSON)
exportJSON <- gsub("\n\\]", "\n\\]\n\\}", exportJSON)
exportJSON
Вывод:
{ "PercentileFromR":
["499 to 516", "517 to 534", "535 to 552", "553 to 569", "570 to 586", "587 to 604", "605 to 622"],
["0", "7", "38", "124", "271", "388", "442"],
["4", "6", "35", "68", "81", "71", "33"]
]
}