Merge pull request #17 from IDEMSInternational/sub_branch

Adding from calculations.R

DESCRIPTION

@@ -8,7 +8,7 @@ Description: This package provides tools for managing and manipulating data fram
 License: LGPL (>= 3)
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 Imports: 
     chillR,
     clipr,
@@ -31,4 +31,4 @@ Imports:
     stringr,
     tibble,
     tidyselect,
-    zoo
+    zoo

NAMESPACE

@@ -1,7 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
 export("%>%")
-export(DataBook)
 export(DataSheet)
 export(instat_comment)
 export(link)

R/DisplayDaily.R

@@ -310,13 +310,13 @@ DisplayDaily <- function(Datain,Stations,Variables,option=1,Years,Misscode,Trace
             cat(paste("VARIABLE : '",Variables[v],"'",sep=""),"\n",file=fileoutput,sep="")
             cat(paste("YEAR     :",Years[y]),"\n",file=fileoutput,sep="")
             cat(paste(names(out)),"\n",file=fileoutput,sep="\t")
-            write.table(out,file=fileoutput,sep="\t",append=TRUE,quote=FALSE,col.names=FALSE,row.names=FALSE)
+            utils::write.table(out,file=fileoutput,sep="\t",append=TRUE,quote=FALSE,col.names=FALSE,row.names=FALSE)
           }else{
             cat("\n",paste("STATION  : '",Stations[s],"'",sep=""),"\n",file=fileoutput,sep="")
             cat(paste("VARIABLE : '",Variables[v],"'",sep=""),"\n",file=fileoutput,sep="")
             cat(paste("YEAR     :",Years[y]),"\n",file=fileoutput,sep="")
             cat(paste(names(out)),"\n",file=fileoutput,sep="\t")
-            write.table(out,file=fileoutput,sep="\t",append=TRUE,quote=FALSE,col.names=FALSE,row.names=FALSE)
+            utils::write.table(out,file=fileoutput,sep="\t",append=TRUE,quote=FALSE,col.names=FALSE,row.names=FALSE)
           }
         }
         rm(tmp2)