feat(7614): code linting

Author: manmita

R/fcast.R

@@ -12,10 +12,10 @@ dcast = function(
   data, formula, fun.aggregate = NULL, ..., margins = NULL,
   subset = NULL, fill = NULL, value.var = guess(data)
 ) {
-  if (!is.data.table(data) && is.data.frame(data)) 
+  if (!is.data.table(data) && is.data.frame(data))
     return(
-      dcast.data.table(data, formula, fun.aggregate = fun.aggregate, ..., 
-      margins = margins, subset = subset, fill = fill, 
+      dcast.data.table(data, formula, fun.aggregate = fun.aggregate, ...,
+      margins = margins, subset = subset, fill = fill,
       value.var = value.var)
     )
   UseMethod("dcast", data)

R/fmelt.R

@@ -4,7 +4,7 @@
 #   redirection as well
 
 melt = function(data, ..., na.rm = FALSE, value.name = "value") {
-  if (!is.data.table(data) && is.data.frame(data)) 
+  if (!is.data.table(data) && is.data.frame(data))
     return(melt.data.table(data, ..., na.rm = na.rm, value.name = value.name))
   UseMethod("melt", data)
 }