add some examples to the docs around creating views and tables from orbital object

[EmilHvitfeldt]

# Add predictions column to table
res <- dplyr::mutate(lendingclub_dat, !!!orbital_inline(orbital_obj))

# Select only the prediction column and the ID column
pred_name <- ".pred"
res <- dplyr::select(res, dplyr::any_of(c("ID", pred_name)))

# Translate the dbplyr `tbl` into a SQL query string
generated_sql <- remote_query(res)

versioned_view_name <- 
  glue("{model_name}_v{model_version}")

snowflake_view_statement <-
  glue::glue_sql("CREATE OR REPLACE VIEW {`versioned_view_name`} AS ",
                 generated_sql,
                 .con = con)

# NOTE: Uncomment the following line to see the whole Snowflake View creation statement.
# snowflake_view_statement