diff --git a/R/lib.R b/R/lib.R index 77be524..9c0e882 100644 --- a/R/lib.R +++ b/R/lib.R @@ -229,7 +229,7 @@ fd_generate_data = function(fdObj, id) { data = fdObj$env[[id]]$data readr::write_csv(data, csv_file) status = "ok" - print(paste0("The csv file is saved to ", csv_file)) + message(paste0("The csv file is saved to ", csv_file)) } return(list( status = status, @@ -252,7 +252,7 @@ fd_generate_pdf = function(fdObj, id) { units = canvas_options$units, dpi = canvas_options$dpi) status = "ok" - print(paste0("The pdf file is saved to ", pdf_file)) + message(paste0("The pdf file is saved to ", pdf_file)) } return(list( status = status, diff --git a/R/server.R b/R/server.R index 975745c..4fba4f5 100644 --- a/R/server.R +++ b/R/server.R @@ -39,7 +39,7 @@ response_fd_download_data = function(fo, req) { } response_fd_download_pdf = function(fo, req) { - print("response_fd_download_pdf") + # print("response_fd_download_pdf") parsed_qeury = parse_url(req$QUERY_STRING)$query figure_id = parsed_qeury$id res = fd_generate_pdf(fo, figure_id)