"
[1] 8959    3
[1] finally
[1] Error here, i=
[1] finally
[1] 34247     3
[1] finally
[1] Error here, i=
[1] finally
[1] 20927     3
[1] finally
[1] 1315    3
[1] finally
[1] 1315    3
[1] finally
[1] 1315    3
[1] finally

"

library(tidycensus)


set1<-c("sf1", "sf3", "acs1", "acs3", "acs5", "acs1/profile")
set2<-c("acs3/profile", "acs5/profile")
setAll<-c(set1,set2)

n<-length(setAll)
final<-NULL

for(i in 1:n){
  tryCatch(
      expr = {
          # Your code...
          data<-setAll[i]
          a<-load_variables(2010, data)
          print(dim(a))
          final<-rbind(final,a)
      },
      error = function(e){ 
          print("Error here, i=",i)
      },
      warning = function(w){
          print("Warning",i)
      },
      finally = {
         print("finally",i)
      }
   )
}

.x<-final
save(.x,file="c://temp/censusVars.RData")