fix broken test

remove use of `drop=FALSE` in wrong place

DESCRIPTION

@@ -21,7 +21,7 @@ Description: This package provides functions for interfacing with the
     MultiAssayExperiment are also included.
 License: GPL-3
 Encoding: UTF-8
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Collate: 
     'parse_fcns.R'
     'generics.R'

R/class_def.R

@@ -872,7 +872,7 @@ setMethod(f = 'do_query',
         fq$count=NULL
 
         SM=df[,colnames(fq),drop=FALSE]
-        df[,colnames(fq),drop=FALSE]=NULL
+        df[,colnames(fq)]=NULL
 
         df=as.data.frame(t(df))
         VM=data.frame(feature_id=rownames(df))

R/metabolomicsWorkbenchR.R

@@ -1,20 +1,21 @@
 #' metabolomicsWorkbenchR
 #'
-#' This package provides an interface to the Metabolomics Workbench API. It can 
-#' be used to query the Metabolomics Workbench for study, compound, protein, 
-#' gene information and more. All endpoints of the API are available via a 
+#' This package provides an interface to the Metabolomics Workbench API. It can
+#' be used to query the Metabolomics Workbench for study, compound, protein,
+#' gene information and more. All endpoints of the API are available via a
 #' simple \code{do_query} method. A number of convenience functions are included
 #' to import study data as \code{SummarizedExperiment} objects to facilitate use
 #' within R and the Bioconductor community.
-#' @docType package
 #' @name metabolomicsWorkbenchR
-#' @seealso 
+#' @seealso
 #' \itemize{
 #'  \item \code{\link{do_query}} for a simple example.
 #'  \item \code{browseVignettes("metabolomicsWorkbenchR")} for more info.
-#'  \item Visit \url{https://www.metabolomicsworkbench.org/tools/mw_rest.php} 
+#'  \item Visit \url{https://www.metabolomicsworkbench.org/tools/mw_rest.php}
 #'  for details of the API.
 #' }
-#' 
+#' @keywords internal
+"_PACKAGE"
+
 NULL
 ## NULL