I don't know why it isn't work even they all are dataframe like you could see below.
> library(tibble)
> library(purrr)
> DataNames <- ls()
> GetInfo <- function(x) {
+ Obj <- get(x)
+ if (grepl("data.frame", class(Obj))) {
+ Name <- x
+ Obs <- nrow(Obj)
+ Vars <- ncol(Obj)
+ } else {
+ Name <- x
+ Obs <- NA
+ Vars <- NA
+ }
+ tibble(Name = Name, Observations = Obs, Variables = Vars)
+
+ }
> TBL <- map_dfr(DataNames, GetInfo )
> TBL
# A tibble: 160 x 3
Name Observations Variables
<chr> <lgl> <lgl>
1 art_No NA NA
2 art_Yes NA NA
3 Before_sleep_music NA NA
4 Before_sleep_nothing NA NA
5 Before_sleep_PC NA NA
6 Before_sleep_smartphone NA NA
7 Before_sleep_TV NA NA
8 CableTV_No NA NA
9 CableTV_Yes NA NA
10 cafe_No NA NA
# ... with 150 more rows
original_data <- read.csv("00000.csv",header = TRUE, sep = ",", na.strings = "NA")
str(original_data)
library(dplyr)
data <- tbl_df(original_data)
data
TV_Yes <- filter(data, A10>="2")
TV_Yes <- TV_Yes[,-1:-496]
> is.data.frame(TV_Yes)
[1] TRUE