message('Loading Packages')## Loading Packageslibrary(rvest)
library(tidyverse)## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.5.1 ✔ tibble 3.2.1
## ✔ lubridate 1.9.3 ✔ tidyr 1.3.1
## ✔ purrr 1.0.2## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ readr::guess_encoding() masks rvest::guess_encoding()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errorslibrary(tmaptools)
library(mongolite)#FITHUB
#kelas
message('Scraping Data')## Scraping Datalink <- "https://fithub.id/class"
page <- read_html(link)
kategori <- page %>% html_nodes(".CardClass_card-category-wrapper__bGTwA p") %>%
html_text()
kelas <- page %>% html_nodes(".CardClass_card-class-content__bmYWa h2") %>%
html_text()
tingkat <- page %>% html_nodes(".CardClass_card-class-diffulty__gbWBu") %>%
html_text()
if(length(tingkat) < 21) {
tingkat <- c(tingkat, "easy")
}
tingkat[11] <- "EASY"
tingkat[20] <- "MODERATE"
tingkat[21] <- "EASY"
waktu <- page %>% html_nodes(".small") %>%
html_text()
waktu[21] <- "60 MIN"
waktu <- as.integer(gsub(" MIN", "", waktu))
#menggabungkan jadi 1 df
kelas_fithub <- data.frame(kategori, kelas, tingkat, waktu, stringsAsFactors = TRUE)
print(kelas_fithub)## kategori kelas tingkat waktu
## 1 Strength Classes HIIT MODERATE 60
## 2 Strength Classes CORE MODERATE 60
## 3 Strength Classes CIRCUIT MODERATE 60
## 4 Strength Classes BOOTY SHAPING MODERATE 60
## 5 Cardio Classes BODYCOMBAT MODERATE 60
## 6 Cardio Classes FIT CYCLE MODERATE 60
## 7 Cardio Classes STRONG NATION MODERATE 60
## 8 Cardio Classes POUND FIT MODERATE 60
## 9 Cardio Classes MAT PILATES MODERATE 60
## 10 Cardio Classes FIT RUSH MODERATE 60
## 11 Dance Classes HIP HOP DANCE EASY 60
## 12 Mind & Body Classes VINYASA YOGA MODERATE 60
## 13 Mind & Body Classes KAPHA YOGA MODERATE 60
## 14 Mind & Body Classes LADIES STYLE BACHATA MODERATE 60
## 15 Mind & Body Classes THAI BOXING MODERATE 60
## 16 Mind & Body Classes ZUMBA MODERATE 60
## 17 Dance Classes FREESTYLE DANCE MODERATE 60
## 18 Dance Classes CARDIO DANCE MODERATE 60
## 19 Strength Classes BOOTCAMP MODERATE 60
## 20 Dance Classes BELLY DANCE MODERATE 60
## 21 Cardio Classes PILOXING EASY 60#membership
link <- "https://fithub.id/membership"
page <- read_html(link)
lama_waktu <- page %>% html_nodes(".CardPackage_card-month-wrapper__Q3tz_") %>%
html_text()
harga <- page %>% html_nodes(".small") %>%
html_text()
benefit <- page %>% html_nodes(".CardPackage_card-benefit-list__CX4_e") %>%
html_text()
#memisahkan data harga
#harga/bulan
harga_per_bulan <- harga[seq(1, length(harga), by = 3)]
harga_per_bulan <- gsub("Rp", "", harga_per_bulan)
harga_per_bulan <- gsub("/ bulan", "", harga_per_bulan)
harga_per_bulan <- gsub("\\.", "", harga_per_bulan)
harga_per_bulan <- as.integer(harga_per_bulan)
#harga.tahub
harga_pertahun <- harga[seq(2, length(harga), by = 3)]
harga_pertahun <- gsub("Total Harga Rp", "", harga_pertahun)
harga_pertahun <- gsub("\\.", "", harga_pertahun)
harga_pertahun <- as.integer(harga_pertahun)
#harga normal/tahun
harga_sebelum_diskon <- harga[seq(3, length(harga), by = 3)]
harga_sebelum_diskon <- gsub("Rp", "", harga_sebelum_diskon)
harga_sebelum_diskon <- gsub("\\.", "", harga_sebelum_diskon)
harga_sebelum_diskon <- as.integer(harga_sebelum_diskon)
df_harga <- data.frame(harga_per_bulan, harga_pertahun, harga_sebelum_diskon, stringsAsFactors = FALSE)
#memisahkan data benefit
benefit_1 <- sapply(strsplit(benefit, "Gratis kelas"), `[`, 1)
benefit_2 <- paste("Gratis kelas", sapply(strsplit(sapply(strsplit(benefit, "Gratis kelas"), `[`, 2), "Gratis"), `[`, 1))
benefit_3 <- paste("Gratis", sapply(strsplit(sapply(strsplit(benefit, "Gratis kelas"), `[`, 2), "Gratis"), `[`, 2))
benefit_3[5] <- "Tidak ada free Personal Training"
df_benefit <- data.frame(benefit_1, benefit_2, benefit_3, stringsAsFactors = FALSE)
#menggabungkan menjadi 1 df
harga_fithub <- data.frame(lama_waktu, df_harga, df_benefit, stringsAsFactors = TRUE)
print(harga_fithub)## lama_waktu harga_per_bulan harga_pertahun harga_sebelum_diskon
## 1 24bulan 311250 5976000 7470000
## 2 18bulan 323750 4662000 5827500
## 3 12bulan 343750 3300000 4125000
## 4 6bulan 406250 1950000 2437500
## 5 3bulan 481250 1155000 1443750
## benefit_1
## 1 Akses tak terbatas ke seluruh FIT HUB klub di Indonesia
## 2 Akses tak terbatas ke seluruh FIT HUB klub di Indonesia
## 3 Akses tak terbatas ke seluruh FIT HUB klub di Indonesia
## 4 Akses tak terbatas ke seluruh FIT HUB klub di Indonesia
## 5 Akses tak terbatas ke seluruh FIT HUB klub di Indonesia
## benefit_2 benefit_3
## 1 Gratis kelas setiap harinya Gratis 2 sesi Personal Training
## 2 Gratis kelas setiap harinya Gratis 2 sesi Personal Training
## 3 Gratis kelas setiap harinya Gratis 2 sesi Personal Training
## 4 Gratis kelas setiap harinya Gratis 1 sesi Personal Training
## 5 Gratis kelas setiap harinya Tidak ada free Personal Training#trainer
link <- "https://fithub.id/trainer"
page <- read_html(link)
sesi <- page %>% html_nodes(".CardPTPackage_card-month-wrapper__4VKAK") %>%
html_text()
harga_total_sesi <- page %>% html_nodes(".mb-1") %>%
html_text()
harga_persesi <- page %>% html_nodes(".CardPTPackage_card-price__mJVie") %>%
html_text()
#menghilangkan kata sesi
sesi <- gsub("Sesi", "", sesi)
#menghilangkan Rp pada harga_total_sesi
harga_total_sesi <- gsub("Rp", "", harga_total_sesi)
harga_total_sesi <- gsub("\\.", "", harga_total_sesi)
harga_total_sesi <- as.integer(harga_total_sesi)
#menghilangkan Rp pada harga_persesi
harga_persesi <- gsub("Rp", "", harga_persesi)
harga_persesi <- gsub("\\.", "", harga_persesi)
harga_persesi <- as.integer(harga_persesi)
#menggabungkan df
trainer_fithub <- data.frame(sesi, harga_total_sesi, harga_persesi, stringsAsFactors = TRUE)
print(trainer_fithub)## sesi harga_total_sesi harga_persesi
## 1 4 1155000 288750
## 2 8 2072700 259088
## 3 16 3582000 223875
## 4 24 5040000 210000
## 5 36 6804000 189000
## 6 48 8316000 173250
## 7 72 12168000 169000
## 8 96 15840000 165000#lokasi
link <- "https://fithub.id/location"
page <- read_html(link)
klub <- page %>% html_nodes(".locationCard_location-card-clubname__wPkYp") %>%
html_text()
alamat_klub <- page %>% html_nodes(".locationCard_location-card-desc__bAS2a p") %>%
html_text()
#menggabungkan df
alamat_fithub <- data.frame(klub, alamat_klub, stringsAsFactors = FALSE)
print(alamat_fithub)## klub
## 1 FIT HUB BENDUNGAN HILIR
## 2 FIT HUB MENARA DUTA
## 3 FIT HUB SUNTER ALTIRA
## 4 FIT HUB ALAM SUTERA
## 5 FIT HUB DARMO PUNCAK PERMAI
## 6 FIT HUB TEBET
## 7 FIT HUB ADITYAWARMAN
## 8 FIT HUB D.I. PANJAITAN
## 9 FIT HUB DUREN SAWIT
## 10 FIT HUB ELANG LAUT PIK
## 11 FIT HUB FATMAWATI
## 12 FIT HUB GRESSMALL
## 13 FIT HUB GADING SERPONG
## 14 FIT HUB GAJAH MADA
## 15 FIT HUB GRAHA PENA
## 16 FIT HUB GREENVILLE
## 17 FIT HUB GROGOL
## 18 FIT HUB GUBENG
## 19 FIT HUB MAMPANG
## 20 FIT HUB ITC KUNINGAN
## 21 FIT HUB JGC
## 22 FIT HUB MANYAR KERTOARJO
## 23 FIT HUB CIBINONG MAYOR OKING
## 24 FIT HUB MERUYA JAMESON
## 25 FIT HUB NIPAH MALL
## 26 FIT HUB PAMULANG
## 27 FIT HUB ITC PERMATA HIJAU
## 28 FIT HUB PLUIT
## 29 FIT HUB PURI INDAH
## 30 FIT HUB RAWAMANGUN
## 31 FIT HUB SALEMBA
## 32 FIT HUB SEDAYU CITY KELAPA GADING
## 33 FIT HUB MERR
## 34 FIT HUB SURYA SUMANTRI
## 35 FIT HUB TAMINI SQUARE
## 36 FIT HUB TANGCITY
## 37 FIT HUB WIYUNG
## 38 FIT HUB RENON
## 39 FIT HUB TEUKU UMAR BARAT
## 40 FIT HUB HARAPAN INDAH
## 41 FIT HUB BINTARO SEKTOR 9 (JOMBANG)
## 42 FIT HUB JOGJA CITY MALL
## 43 FIT HUB KALIMALANG
## 44 FIT HUB KARANG MULYA
## 45 FIT HUB KARAWACI
## 46 FIT HUB KEMANGGISAN
## 47 FIT HUB KOPO
## 48 FIT HUB LENGKONG KECIL
## 49 FIT HUB MALL METRO KEBAYORAN
## 50 FIT HUB BINTARO SEKTOR 1
## 51 FIT HUB SUNSET ROAD
## 52 FIT HUB BINTARO SEKTOR 7
## 53 FIT HUB BLOK M
## 54 FIT HUB WISMA 46
## 55 FIT HUB BSD GOLDEN BOULEVARD
## 56 FIT HUB CIPUTAT LOT
## 57 FIT HUB CEMPAKA PUTIH
## 58 FIT HUB SILIWANGI BOGOR
## 59 FIT HUB CILEDUG
## 60 FIT HUB CITRA RAYA CIKUPA
## 61 FIT HUB CITRALAND BARAT
## 62 FIT HUB DEPOK TOWN SQUARE (DETOS)
## 63 FIT HUB DEPOK TOWN CENTER (DTC)
## 64 FIT HUB BSD GOLDFINCH
## 65 FIT HUB PLAZA OLEOS
## 66 FIT HUB PASAR MINGGU
## 67 FIT HUB SETIABUDI SEMARANG
## 68 FIT HUB CINERE RAYA
## 69 FIT HUB MASPION PLAZA
## 70 FIT HUB TAMAN PALEM LESTARI
## 71 FIT HUB LIVING PLAZA JABABEKA
## 72 FIT HUB TRANSYOGI CIBUBUR
## 73 FIT HUB PAHLAWAN SIDOARJO
## 74 FIT HUB GATSU TIMUR (Coming Soon)
## 75 FIT HUB BSB SEMARANG (Coming Soon)
## 76 FIT HUB SUMMARECON BEKASI
## 77 FIT HUB MAJAPAHIT SEMARANG (Coming Soon)
## 78 FIT HUB BUAHBATU (Coming Soon)
## 79 FIT HUB PASARKOTA PONDOK GEDE (Coming Soon)
## 80 FIT HUB CIMAHI (Coming Soon)
## 81 FIT HUB ULUWATU (Coming Soon)
## 82 FIT HUB BALOI PERSERO BATAM (Coming Soon)
## 83 FIT HUB KENJERAN (Coming Soon)
## alamat_klub
## 1 Jl. Bendungan Hilir No.10, RT.1/RW.4, Jakarta Pusat, Daerah KhususIbukota Jakarta 10210
## 2 Jalan H. R. Rasuna Said No.Kav B/09, RT.5/RW.1, Kuningan, Jakarta Selatan, Daerah Khusus Ibukota Jakarta 12910
## 3 Altira Business Park Blok A01-A03 Lantai 2, Jakarta, DKI Jakarta 14350
## 4 Jl Jalur Sutra Ruko Imperial Walk Kavling 29 B Nomor : 30 – 31, Kota Tangerang Selatan Banten 15320
## 5 Jl. Raya Darmo Permai III No.80, Pradahkalikendal, Kec. Dukuhpakis, Surabaya, Jawa Timur 60226
## 6 Jl. Prof. DR. Soepomo No.30, RT.13/RW.2, Tebet Bar., Kec. Tebet, Kota Jakarta Selatan, Daerah Khusus Ibukota Jakarta 12810
## 7 Jl. Adityawarman No.39, Sawunggaling, Kec. Wonokromo, Surabaya, Jawa Timur 60242
## 8 Jl. Mayor Jend. D.I. Panjaitan No.14, Brumbungan, Kec. Semarang Tengah, Kota Semarang, Jawa Tengah 50135
## 9 Jl. Kolonel Sugiono No.3, RT.1/RW.3, Duren Sawit, Kec. Duren Sawit, Kota Jakarta Timur, Daerah Khusus Ibukota Jakarta 13440
## 10 Jl. Pantai Indah Selatan No.10, RT.3/RW.3, Kamal Muara, Kec. Penjaringan, Jkt Utara, Daerah Khusus Ibukota Jakarta 14470
## 11 Jl. RS. Fatmawati Raya No.9, Gandaria Sel., Kec. Cilandak, Kota Jakarta Selatan, Daerah Khusus Ibukota Jakarta 12140
## 12 LG Floor, Jl. Sumatra No.1-5, RT.07/RW.08, Gn. Malang, Randuagung, Kec. Kebomas, Kabupaten Gresik, Jawa Timur 61121
## 13 Jl. Gading Serpong Boulevard No.10-11, Pakulonan Bar., Kec. Klp. Dua, Kabupaten Tangerang, Banten 15810
## 14 Jl. Gajah Mada No.220, Glodok, Kec. Taman Sari, Kota Jakarta Barat, Daerah Khusus Ibukota Jakarta 11120
## 15 Gedung Graha Pena Lantai 1 Ruang 112, Jl. Ahmad Yani No.88, Ketintang, Kecamatan, Jawa Timur 60231
## 16 Jl. Green Ville Blk. BJ-BK No.5, RT.8/RW.14, Duri Kepa, Kec. Kb. Jeruk, Kota Jakarta Barat, Daerah Khusus Ibukota Jakarta 11510
## 17 Jl. Makaliwe Raya No.42, RW.5, Grogol, Kec. Grogol petamburan, Kota Jakarta Barat, Daerah Khusus Ibukota Jakarta 11450
## 18 Jl. Sumatera No.20-B, RT.010/RW.07, Ketabang, Kec. Genteng, Surabaya, Jawa Timur 60272
## 19 Jl. Mampang Prpt. Raya No.81, RT.7/RW.1, Tegal Parang, Kec. Mampang Prpt., Kota Jakarta Selatan, Daerah Khusus Ibukota Jakarta 12790
## 20 ITC Kuningan Lantai 5 Jembatan 1, Jl. Prof. DR. Satrio, Kuningan, Karet Kuningan, Kecamatan Setiabudi, Kota Jakarta Selatan, Daerah Khusus Ibukota Jakarta 12940
## 21 Ruko New East, Jl. Jkt Garden City Boulevard, Cakung Tim., Kec. Cakung, Daerah Khusus Ibukota Jakarta 13910
## 22 Jl. Manyar Kertoarjo No.12, Manyar Sabrangan, Kec. Mulyorejo, Kota SBY, Jawa Timur 60116
## 23 Jl. Raya Mayor Oking Jaya Atmaja No.67, Ciriung, Kec. Cibinong, Kabupaten Bogor, Jawa Barat 16918
## 24 Komp. Ruko Taman Kb. Jeruk, Jl. Meruya Ilir Raya No.12, RT.4/RW.7, Meruya Sel., Kec. Kembangan, Kota Jakarta Barat, Daerah Khusus Ibukota Jakarta 11640 (Lantai 3)
## 25 Jl. Urip Sumoharjo No.23C, Panaikang, Kec. Panakkukang, Kota Makassar, Sulawesi Selatan 90231
## 26 Superindo, Jalan Pamulang Raya Blok SH/14 Kompleks, Jl. Pamulang Permai, Pamulang Bar., Kec. Ciputat, Tangerang Selatan, Banten 15417
## 27 Jl. Arteri Permata Hijau No.11, RT.11/RW.10, Grogol Utara, Kec. Kby. Lama, Kota Jakarta Selatan, Daerah Khusus Ibukota Jakarta 12210 (Grand ITC Permata Hijau Lantai Lower Ground)
## 28 Jl. Pluit Indah No.34, Pluit, Kec. Penjaringan, Kota Jkt Utara, Daerah Khusus Ibukota Jakarta 14450
## 29 Sentra Niaga Puri Indah Blok T1 No. 9-10, Jl. Puri Lkr. Dalam No.Raya, RT.1/RW.2, South Kembangan, Kembangan, West Jakarta City, Jakarta 11610
## 30 Jl. Sunan Drajad No.39, RW.8, Jati, Pulo Gadung, East Jakarta City, Jakarta 13220
## 31 Jl. Salemba Raya No.57 - 59, Paseban, Kec. Senen, Kota Jakarta Pusat, Daerah Khusus Ibukota Jakarta 10430
## 32 Jl. Boulevard Raya Sedayu City Blok SCBRA NO. 3, 5 dan 6, Cakung, Kota Jakarta Timur, Daerah Khusus Ibukota Jakarta 13910
## 33 Jl. Dr. Ir. H. Soekarno 47-364, Kedung Baruk, Kec. Rungkut, Kota SBY, Jawa Timur 60298
## 34 Jl. Surya Sumantri Kel No.53, RT.05/RW.04, Sukawarna, Kec. Sukajadi, Kota Bandung, Jawa Barat 40164
## 35 Jl. Taman Mini Raya Garuda, Pinang Ranti, Makasar,Jakarta Timur 13560,DKI Jakarta (Tamini Square Lantai 2)
## 36 Ruko TangCity Business Park, Jl. Jenderal Sudirman E23, E25, E26 Babakan, Kec. Tangerang, Kota Tangerang, Banten 15117
## 37 Jl. Raya Menganti Babatan No.9, Babatan, Kec. Wiyung, Kota Surabaya
## 38 Jl. Raya Puputan No.148, Sumerta Kelod, Denpasar Selatan, Kota Denpasar, Bali 80234, Indonesia
## 39 Jl. Teuku Umar Barat No.12, Pemecutan Klod, Kec. Denpasar Bar., Kota Denpasar, Bali 80119, Indonesia
## 40 Ruko Mega Boulevard RV-1, Kota Harapan Indah No.3A, Pusaka Rakyat, Kecamatan Medan Satria, Kabupaten Bekasi, Jawa Barat 17132, Indonesia
## 41 Jalan Jombang Raya No.89 Jombang, Ciputat, Parigi, Kec. Pd. Aren, Kota Tangerang Selatan, Banten 15414, Indonesia
## 42 Magelang St Lantai 1 No.6 No.18, Kutu Patran, Sinduadi, Mlati, Sleman Regency, Special Region of Yogyakarta 55284
## 43 Jl. KH. Noer Ali No.45, RT.2/RW.3, Pd. Klp., Kec. Duren Sawit, Kota Jakarta Timur, Daerah Khusus Ibukota Jakarta 13450
## 44 Samping Apartemen, The NEST@Puri, Jl. Raden Saleh, RT.001/RW.012, Karang Mulya, Kec. Karang Tengah, Kota Tangerang, Banten 15157
## 45 Maxxboxx Lippo Village UG Unit No. UG-09 s.d. UG-13, Lippo VIllage 1200, Jl. Jend. Sudirman No.1110, Bencongan, Kec. Klp. Dua, Kabupaten Tangerang, Banten 15810
## 46 Jalan Kebon Jeruk Raya Gg. Abc No.15, RT.007/RW.005, Sukabumi Sel., Kec. Kb. Jeruk, Kota Jakarta Barat, Daerah Khusus Ibukota Jakarta 11530
## 47 Ruko Kavling, Jl. Raya Kopo No.472, Margahayu Utara, Kec. Babakan Ciparay, Kota Bandung, Jawa Barat 40224
## 48 Jl. Lengkong Kecil No.52, Paledang, Kec. Lengkong, Kota Bandung, Jawa Barat 40261
## 49 Mall Metro Kebayoran, Jl. Ciledug Raya No.1, RW.5, Ulujami, Kec. Pesanggrahan, Kota Jakarta Selatan, Daerah Khusus Ibukota Jakarta 12250
## 50 Jalan Bintaro Raya Blok FII Persil no. 1, RT 016/RW08, Kecamatan. Pesanggrahan Kota Jakarta Selatan, Jakarta, Daerah Khusus Ibukota Jakarta 12330
## 51 Jl. Sunset Road Kecamatan No.388, Kuta, Kec. Kuta, Kabupaten Badung, Bali 80361
## 52 Kompleks Bintaro Jaya Sektor 7 Blok FG 14 nomor 42A, Pd. Jaya, Kec. Pd. Aren, Kota Tangerang Selatan, Banten 15222
## 53 Jalan Panglima Polim Raya Blok M.3 No. 1 dan 2, RT.1/RW.2, Melawai, Kec. Kby. Baru, Daerah Khusus Ibukota Jakarta 12130, Indonesia
## 54 Jl. Jenderal Sudirman No.Kav. 1, RT.1/RW.8, Karet Tengsin, Kecamatan Tanah Abang, Kota Jakarta Pusat, Daerah Khusus Ibukota Jakarta 10220
## 55 Jl. Pahlawan Seribu, Lengkong Karya, BSD City, Kota Tangerang Selatan, Banten 15301, Indonesia
## 56 Jl. Dewi Sartika No.22, Cipayung, Kec. Ciputat, Kota Tangerang Selatan, Banten 15411, Indonesia
## 57 Jl. Cempaka Putih Raya B No.44, RT.7/RW.8, Cemp. Putih Tim., Kec. Cemp. Putih, Kota Jakarta Pusat, Daerah Khusus Ibukota Jakarta 10510, Indonesia
## 58 Jl. Siliwangi No.66, RT.5/RW.04, Lawanggintung, Kota Bogor, Jawa Barat 16134, Indonesia
## 59 Jl. HOS Cokroaminoto No.8, RT.001/RW.005, Sudimara Utara, Kec. Ciledug, Kota Tangerang, Banten 15151, Indonesia
## 60 Jl. EcoPolis Ave, Mekar Bakti, Kec. Panongan, Kabupaten Tangerang, Banten 15710, Indonesia
## 61 Telaga Utama Road No.D1 No.31-32, Jeruk, Lakarsantri, Surabaya, East Java 60123
## 62 Depok Town Square, Jl. Margonda No.1, Kemiri Muka, Kecamatan Beji, Kota Depok, Jawa Barat 16424, Indonesia
## 63 DTC, Jl. Raya Sawangan No.1, Rangkapan Jaya, Kec. Pancoran Mas, Kota Depok, Jawa Barat 16435, Indonesia
## 64 Jalan Goldfinch Selatan SGD, Jl. Springs Boulevard No.29, Cihuni, Kec. Pagedangan, Kabupaten Tangerang, Banten 15332
## 65 Jl. TB Simatupang, RT.2/RW.1, Kebagusan, Ps. Minggu, Kota Jakarta Selatan, Daerah Khusus Ibukota Jakarta 12520
## 66 Jl. Raya Pasar Minggu No.05, RT.2/RW.7, Duren Tiga, Kec. Pancoran, Kota Jakarta Selatan, Daerah Khusus Ibukota Jakarta 12760
## 67 Jl. Setia Budi No.39, Srondol Wetan, Kec. Banyumanik, Kota Semarang, Jawa Tengah 50263
## 68 Jl. Cinere Raya No.105, Cinere, Kec. Cinere, Kota Depok, Jawa Barat 16514
## 69 Jl. Gn. Sahari No.Kav.18, Pademangan Bar., Kec. Pademangan, Jkt Utara, Daerah Khusus Ibukota Jakarta 14420
## 70 Perumahan Taman Palem Lestari Blok A-11/5-A 11730, RT.8/RW.13, Cengkareng Bar., Kota Jakarta Barat, Daerah Khusus Ibukota Jakarta 11730
## 71 Living Plaza Jababeka, Jl. Jababeka Raya, Mekarmukti, Kec. Cikarang Utara, Kabupaten Bekasi, Jawa Barat 17530
## 72 Jl. Alternatif Cibubur No.117, Nagrak, Kec. Gn. Putri, Kabupaten Bogor, Jawa Barat 16967
## 73 JL Pahlawan, Perumahan Pondok Mutiara Blok BD, No. 1, RT 23 RW 10, Rw6, Sidokumpul, Kec. Sidoarjo, Kabupaten Sidoarjo, Jawa Timur 61212
## 74 Jl. Gatot Subroto Tim. No.250, Tonja, Kec. Denpasar Utara, Kota Denpasar, Bali 80234
## 75 CBD BSB CITY BLOK G9, Kedungpane, Kec. Mijen, Kota Semarang, Jawa Tengah 50246
## 76 Ruko Summarecon Bekasi No. 74B, RT.003/RW.005, Marga Mulya, Bekasi Utara, Bekasi, West Java 17142
## 77 Jl. Brigjen Sudiarto No.218B, Gayamsari, Kec. Gayamsari, Kota Semarang, Jawa Tengah 50248
## 78 Jl. Buah Batu No.258, Turangga, Kec. Lengkong, Kota Bandung, Jawa Barat 40286
## 79 Jl. Raya Pd. Gede No.1, Jatirahayu, Kec. Pd. Melati, Kota Bks, Jawa Barat 17415
## 80 Jl. Raya Cilember No.325, Cigugur Tengah, Kec. Cimahi Tengah, Kota Cimahi, Jawa Barat 40522
## 81 Jl. Uluwatu No.35, Ungasan, South Kuta, Badung Regency, Bali 80361
## 82 Jl. Bunga Raya No.37-38 A, Baloi Kusuma, Kec. Lubuk Baja, Kota Batam, Kepulauan Riau 29444
## 83 Pertokoan Kenjeran Indah, Jl. Kenjeran No.564 - 572, Dukuh Sutorejo, Kec. Mulyorejo, Surabaya, Jawa Timur 60113#fasilitas
link <- "https://fithub.id/facilities"
page <- read_html(link)
fasilitas <- page %>% html_nodes(".section h4") %>%
html_text()
fasilitas## [1] "CARDIO" "CLASS AREA" "PERSONAL TRAINER" "WEIGHT TRAINING"
## [5] "DUMBBELL AREA" "MATRAS" "RUANG TUNGGU " "CHARGING"
## [9] "FREE WEIGHTS" "LOCKER" "SHOWER ROOM" "TOILET"
## [13] "RIPSTICK" "RUANG GANTI"