R/NeoRun.R

In 419kfj/EpsonView: Get data from EPSON GPS watch

#' Convert backup data to dataframe list.
#' @param fname CSV file name
#' @param runmemo memo to add dataframe
NeoRun_data <- function(fname,runmemo=NULL){
#  library(dplyr)
#  library(readr)
#  library(stringr)

## Read CSV data from Backup fname="~/Dropbox/RStudio/RunNeorun/20180401-20180401.csv"
  .d <- readr::read_lines(fname,locale=readr::locale(encoding="CP932"))
  EV <- ifelse(.d[1]=="[[EpsonView]]",1,0)
  tag <- substr(stringr::str_split(fname,"/")[[1]][length(stringr::str_split(fname,"/")[[1]])],1,8)
  for(i in 1:length(.d)){
    if(.d[i] == "[TrainingResult]") p.TrainingResult = i
    if(.d[i] == "[TrainingData]") p.TrainingData = i
    if(.d[i] == "[GraphData]") p.GraphData = i
    if(.d[i] == "[GPSData]") p.GPSData = i
    if(.d[i] == "[LapData]") p.LapData = i
    if(.d[i] == "[TrainingSettingData]") p.TrainingSettingData = i
    if(.d[i] == "[[end]]") p.end = i
  }
  ## Read basic Info
  .d.TrainingMemo <- readr::read_csv(fname,locale=readr::locale(encoding="CP932"),
                              skip=5 + EV, n_max = 1,col_names = TRUE)
  .d.TrainingData <- readr::read_csv(fname,locale=readr::locale(encoding="CP932"),
                              skip=8 + EV,n_max = 1,col_names = TRUE)

  .d.TrainingName <- readr::read_csv(fname,locale=readr::locale(encoding="CP932"),
                              skip=2 + EV,n_max = 1,col_names = FALSE)
#  .d.TrainingName
  .d.TrainingInfo <- readr::read_csv(fname,locale=readr::locale(encoding="CP932"),
                              skip=5 + EV,n_max = 1,col_names = TRUE)
#  .d.TrainingInfo
  .d.TrainingInfo %>% select(StartDay,StartTime,EndDay,EndTime) -> .d.Date
  # get Graph Data
  .d.Graph.Interval <- readr::read_csv(fname,locale=readr::locale(encoding="CP932"),
                                skip=p.GraphData,n_max = 2)
  .d.Graph.0 <- readr::read_csv(fname,locale=readr::locale(encoding="CP932"),
                         skip=p.GraphData + 2 , n_max = p.GPSData - p.GraphData -3,
                         col_names = FALSE)

  .d.Graph.0[,1] %>% unlist() -> cnames
  .d.Graph.0[,-1] %>% t() -> .d.Graph
  colnames(.d.Graph) <- cnames
  rownames(.d.Graph) <- 1:nrow(.d.Graph)
  .d.Graph.Interval
  .d.Graph %>% tibble::as_tibble() %>% cbind(.,Tag=tag) -> .d.Graph.td ###%>% mutate(.d.Date[1,1])

  ## Get LAP data
  begin <- p.LapData + 1
  end <- p.TrainingSettingData-1
  .d[begin:end] %>% read.csv(text=.) %>% tibble::as_tibble() %>% mutate(Tag=tag) -> .d.lap # AdvR p24

  ## Get GPS String
  # [GPSData]     GPSstring[]
  # Gpstime       2
  # GpsLatitude   3
  # GpsLongitude  4
  # GpsAltitude   5
  # GpsDirection  6
  # GpsSpeed      7
  # GpsStatus     8
  # [LapData]

  start <- p.GPSData +1
  end <- p.LapData -1
  cmd <- NULL
  for(i in start:end) cmd <- paste0(cmd,".d[",i,"],")
  cmd
  Gpsall <- eval(parse(text=paste0("paste0(",cmd,"NULL)")))
  Gpsall %>% stringr::str_split("Gps") -> GPSstring

  ## GPS Time
  GPSstring[[1]][2] %>% stringr::str_split(",") -> Gpstime.0
  stringr::str_split(Gpstime.0[[1]][2],";") -> Gpstime.1
  Gpstime.1 %>% unlist()  -> Gtime
  #parse_time("00:00:0") # HM は二桁必要 sprintf で桁を合わせる。
  for(i in 1:length(Gtime)){
    Gtime[i] %>%stringr::str_split(pattern = ":") %>% unlist() %>% as.numeric() -> .t
    sprintf("%02s:%02s:%02s",.t[1],.t[2],.t[3]) -> Gtime[i]
  }
  Gtime %>% parse_time() -> GPSTime

  ## GpsLatitude   3
  GPSstring[[1]][3] %>% stringr::str_split(",") -> Gps_tmp
stringr::str_split(Gps_tmp[[1]][2],";") %>% unlist() %>% as.numeric() -> GPSlatitude

  ## GpsLongitude  4
  GPSstring[[1]][4] %>% stringr::str_split(",") -> Gps_tmp
stringr::str_split(Gps_tmp[[1]][2],";") %>% unlist() %>% as.numeric() -> GPSLongitude

  # GpsAltitude   5
  GPSstring[[1]][5] %>% stringr::str_split(",") -> Gps_tmp
stringr::str_split(Gps_tmp[[1]][2],";") %>% unlist() %>% as.numeric() -> GPSAltitude

  # GpsDirection  6
  GPSstring[[1]][6] %>% stringr::str_split(",") -> Gps_tmp
stringr::str_split(Gps_tmp[[1]][2],";") %>% unlist() %>% as.numeric() -> GPSDirection

  ## GPSSpeed / 7
  GPSstring[[1]][7] %>% stringr::str_split(",") -> Gps_tmp
stringr::str_split(Gps_tmp[[1]][2],";") %>% unlist() %>% as.numeric() -> GPSSpeed

  # GpsStatus     8
  GPSstring[[1]][8] %>% stringr::str_split(",") -> Gps_tmp
stringr::str_split(Gps_tmp[[1]][2],";") %>% unlist() %>% as.numeric() -> GPSStatus

  GPS <- data.frame(GPSTime,GPSlatitude,GPSLongitude,GPSAltitude,GPSDirection,
                    GPSSpeed,GPSStatus) %>% mutate(Tag=tag)
  #GPS %>% tibble::as_tibble()

  return(list(base=.d[3],
              Graph=.d.Graph.td,
              GPS=GPS,
              Lap=.d.lap,
              Tag=tag,
              Memo=runmemo,
              TrainMemo = .d.TrainingMemo,
              TrainData = .d.TrainingData))
}

## 同じモジュールを使う 内部的に一行目で判定
#' Alias of NeoRun as EpsonView.
EpsonView_data <- NeoRun_data

####
# Make Lap summary Table
#
# 2018-04-01
#' Get Lap summary table
#' @param fname CSV data name
#fname="20180401-20180401.csv" for Neorun
lap_table <- function(fname){
  .dd <- NeoRun_data(fname)
  return(lap_table0(.dd))
}

#lap_table0(.dd$Lap)
#' Get Lap summary table from EpsonView object
#' @param .d EpsonView_data object
lap_table0 <- function(.d){# .d は、NeoRun_data/EpsonView_data オブジェクト$Lap
  # .d <- res$Lap
  # .d <- .dd$Lap

  names(.d)[1:18] <- c("No.","EndPoint","Time",
                       "距離","カロリー","平均ペース",
                       "平均速度","平均ピッチ","平均ストライド",
                       "Kind","Step","SplitTime",
                       "SplitDist","登り","下り",
                       "MaxHR","MinHR","AveHR")

    .d %>% select(1,3,6,8,9,16:18) %>%
    mutate(Time=paste(Time %/% 60,":",Time %% 60,sep="")) -> .res
  return(.res)
}

# Run情報の抽出   <--   つかい方不明
# TrainingName, TrainingTime
#' Get Training Name Not use!
#' @param fname CSV file name
Run_info <- function(fname){
 .dd <- NeoRun_data(fname)
#  return(Run_info0(.dd))
  .Tname <- stringr::str_split(.dd$base,",")[[1]][2]
  .Ttime <- .dd$TrainMemo$TrainingTime # sec
  #  .d2 <- paste(.dtime %/% 3600,
  #         .dtime %% 3600 %/% 60,
  #         .dtime %% 3600 %% 60,sep=":")
  return(list(.Tname,.Ttime))
}

#' @param .dd NeoRun_data/EpsonView_data object
Run_info0 <- function(.dd){ #.dd は、NeoRun_data/EpsonView_dataのオブジェクト
  .Tname <- stringr::str_split(.dd$base,",")[[1]][2]
  .Ttime <- .dd$TrainMemo$TrainingTime # sec
  #  .d2 <- paste(.dtime %/% 3600,
  #         .dtime %% 3600 %/% 60,
  #         .dtime %% 3600 %% 60,sep=":")
  return(list(.Tname,.Ttime))
}


##
# Date to fname
#
# .dd = "2018-04-01"
# res <- Date2fname(.dd)
# res    "20180401-20180401.csv"

#library(stringr)
#.dd %>%stringr::str_replace_all("-","") %>% paste(.,"-",.,".csv",sep="")

######
# sec to H:M:S
#####

#' time data conversion for display
#' @param sec data in seconds
sec2HMS <- function(sec){
  H <- sec %/%(60*60)
  M <- sec %%(60*60)%/%60
  S <- sec %%(60*60)%%60
  return(sprintf("%02d:%02d:%02d",H,M,S))
}

#' @examples
#' EpsonView::NeoRun_data("../EpsonView/inst/extdata/20170801-20170801.csv","test")
#
#' @examples
#' EpsonView::EpsonView_data("../EpsonView/inst/extdata/20191027100322","test2")
#'