Экспорт фрейма данных JSON в форматирование R

просто передают время для этой функции. он будет распечатывать для вас формат времени

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';
  }
2
задан adrienne 11 March 2019 в 14:17
поделиться

2 ответа

Преобразование кадра данных в именованный список перед преобразованием в 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"]
#       ]
# } 
0
ответ дан Dave2e 11 March 2019 в 14:17
поделиться

Вы можете манипулировать объектом 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"]
]
} 
0
ответ дан symbolrush 11 March 2019 в 14:17
поделиться
Другие вопросы по тегам:

Похожие вопросы: