add more logs (#25)

esiegel · web-flow · commit 927e0cdc7b39 · 2023-12-06T13:53:13.000-08:00
diff --git a/R/cmd.R b/R/cmd.R
@@ -54,6 +54,9 @@ louper_create_cloupe <- function(
     return(err(sprintf("cannot find Louper executable at path: '%s'", executable_path)))
   }
 
+  cmd_msg <- sprintf('running command: "%s"', paste(c(executable_path, args), collapse=" "))
+  logMsg(cmd_msg)
+
   status <- system2(command=executable_path, args=args)
 
   if (status == 0) {
diff --git a/R/lib.R b/R/lib.R
@@ -128,6 +128,7 @@ create_loupe <- function(
   }
 
   h5path <- sprintf("%s.h5", tempfile())
+  logMsg("creating temporary hdf5 file:", h5path)
   ok <- create_hdf5(
     count_mat,
     clusters,
@@ -140,6 +141,7 @@ create_loupe <- function(
     stop(general_err(ok$msg, "creating the temporary hdf5 file"))
   }
 
+  logMsg("invoking louper executable")
   ok <- louper_create_cloupe(
     h5path,
     output_dir=output_dir,

Original file line number	Diff line number	Diff line change
`@@ -54,6 +54,9 @@ louper_create_cloupe <- function(`
`54`	`54`	`return(err(sprintf("cannot find Louper executable at path: '%s'", executable_path)))`
`55`	`55`	`}`
`56`	`56`
	`57`	`+ cmd_msg <- sprintf('running command: "%s"', paste(c(executable_path, args), collapse=" "))`
	`58`	`+ logMsg(cmd_msg)`
	`59`	`+`
`57`	`60`	`status <- system2(command=executable_path, args=args)`
`58`	`61`
`59`	`62`	`if (status == 0) {`
Original file line number	Diff line number	Diff line change
`@@ -128,6 +128,7 @@ create_loupe <- function(`
`128`	`128`	`}`
`129`	`129`
`130`	`130`	`h5path <- sprintf("%s.h5", tempfile())`
	`131`	`+ logMsg("creating temporary hdf5 file:", h5path)`
`131`	`132`	`ok <- create_hdf5(`
`132`	`133`	`count_mat,`
`133`	`134`	`clusters,`
`@@ -140,6 +141,7 @@ create_loupe <- function(`
`140`	`141`	`stop(general_err(ok$msg, "creating the temporary hdf5 file"))`
`141`	`142`	`}`
`142`	`143`
	`144`	`+ logMsg("invoking louper executable")`
`143`	`145`	`ok <- louper_create_cloupe(`
`144`	`146`	`h5path,`
`145`	`147`	`output_dir=output_dir,`